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VORWORT 


"ABENTEUERSPIELE (ADVENTURE GAMES), für einige das Höchste, 
für andere schlicht langweilig. Ein Computerspiel mit viel 
Text, bei dem der Spieler eingeladen ist, an einer Reihe 
von Zufallsereignissen teilzunehmen und sich in einem 


Irrgarten oder Labyrinth zurechtzufinden.” 


Diese Definition findet der interessierte Leser im Anhang 
des Handbuches zum Schneider CPC 464, und sollte er ihr 
Glauben schenken und das Thema Adventures nun mit einem 
“Ach herrje‘’ abtun, wird er auf die interessanteste Art, 
sich auf spielerische Art und Weise mit seinem Computer zu 


befassen, verzichten müssen. 


Und dies wäre wirklich sehr schade, denn warum sollten Sie 
auf etwas verzichten, woran Millionen Computerfreunde in 
aller Welt Spaß haben ? 


Denn wie wollen Sie es sich sonst erklären, wenn Sie 
Kollegen in der Schule oder am Arbeitsplatz sehen, die ihre 
Pause mit einer Diskussion darüber verbringen, wie der Held 
die lebensbedrohliche Situation zum Guten wenden kann ? 
Warum lassen sich in jeder einschlägigen Fachzeitschrift 
Artikel zum Thema Adventure finden ? 

Und warum steigen auch Riesen der Unterhaltungsbranche, wie 
WARNER BROS. oder LUCASFILM (geschützte Namen), in den 
Markt der Adventurespiele ein und begnügen sich nicht mit 


ihren auf Celluloid dargestellten Welten ? 


Warum, wenn die Abenteuerspiele wirklich so wenig zu bieten 
haben ? 


Diese Frage werden Sie sich und jedem anderen beantworten 


können, wenn Sie sich mit diesem Buch befaßt haben. 


Denn mit "Adventures - und wie man sie auf dem CPC 464 
programmiert halten Sie den Schlüssel zur Welt der 
Adventurespiele in der Hand, zu einer Welt, die jeder 
betreten sollte, der über dem Ernst des Lebens noch nicht 
den Frohsinn der spielend verbrachten Tage seiner Kindheit 


vergessen hat. 


Sie werden Abenteuer in grauer Vorzeit und im All erleben, 
und dabei werden Sie feststellen, daß Zufälle im Adventure 
höchst selten dem Zufall überlassen bleiben; daß Labyrinthe 
und Irrgärten immer nur Beiwerk sind, um den Spieler 
zusätzlich zu verwirren, und daß Abenteuerspiele 
keinesfalls immer nur reine Textspiele sein müssen - schon 
gar nicht, wenn sie auf einem Computer wie dem CPC 464 


laufen. 


Schritt für Schritt werden Sie gemeinsam mit mir eine 


Konzeption zur Realisierung von Abenteuerspielen 
entwickeln, wobei wir deren optische wie auch 
spieltechnische Erscheinungsform nach professionell 


vertriebenen Adventurespielen ausrichten werden. 


Selbst wenn Sie sich nicht zu den Programmierprofis zählen, 
kurze Exkurse, zur Kennzeichnung kursiv gedruckt, werden 
Sie in die zum Verständnis der Programme wichtigen 
Grundlagen einführen, so daß Sie auch als Anfänger mit dem 
Inhalt dieses Buches ohne Schwierigkeiten zurechtkommen 
werden. 


Dabei hilft Ihnen auch der Aufbau der Programme; nach jedem 
Schritt werden Sie die Richtigkeit der Überlegungen 


sogleich in der Praxis erproben können. 


So programmieren wir zunächst die Handlungswelt eines 
Adventures, dann werden wir uns überlegen, wie dem Spieler 
die gezielte Fortbewegung möglicht gemacht werden kann, und 
wie wir ihm Gegenstände zur Hand geben können, mit denen er 
arbeiten kann. 


Ein weiteres Kapitel wird Sie in die besonderen Geheimnisse 
der Adventureprogrammierung einweihen; es wird Ihnen 
zusätzliche Vorschläge machen, wie Sie einem Spieler Ihrer 
Adventures das Leben erschweren können. 


Darüber hinaus finden Sie in diesem Kapitel genaue 
Anweisungen, wie Sie jedes erstellte Textadventure zu einem 


Grafikadventure ausbauen können. 


Und damit die Gestaltung der Grafiken nicht allzu 
arbeitsaufwendig wird, erhalten Sie auch das Listing eines 
Grafik Programmers, der die erforderlichen Unterprogramme 


für Sie erzeugen wird. 


Aber es bleibt nicht allein bei diesem Hilfsprogramm, 
sondern mit dem Listing °Venturefix’° stellen wir Ihnen 
einen Adventuregenerator zur Verfügung, der es Ihnen, 
selbst wenn Sie Ihren CPC erst heute erstanden haben 
sollten und somit über keinerlei Programmierkenntnisse 
verfügen, erlaubt, voll funktionsfähige Adventureprogramme 
zu erzeugen. 

Noch komfortabler wird die Sache mit unserem 
Adventuresystem, bestehend aus einem Adventureeditor mit 
zugehörigem Interpreter, nun können Sie jede Idee und jeden 


Gedankengang sofort im Spiel überprüfen und korrigieren. 


Sollten Sie es allerdings vorziehen, zunächst erst einige 
Adventures zu spielen, so schlagen Sie bitte das letzte 
Kapitel auf, denn hier finden Sie die Textadventures 
Goldrausch und Das verzauberte Schloß, wie auch ein Listing 


für das Grafikadventure Space Mission. 


Ich nehme an, daß Sie sich nun lieber mit dem eigentlichen 
Thema dieses Buches statt mit einer langen Vorrede befassen 


wollen, und so bleibt mir im Moment nur noch übrig, mich 


für den Kauf dieses Buches recht herzlich bei Ihnen zu 
bedanken. 


Darüber hinaus gilt mein besonderer Dank Herrn Dr. Achim 
Becker, der die Herausgabe dieses Buches möglich gemacht 
hat, wie auch Frau Alicia Clees und Herrn Claus Wagner, die 
mich bei der redaktionellen Arbeit auf unermüdliche Weise 
unterstützt haben. 


Recklinghausen, 
Dezember 1984 Jörg Walkowiak 


1. KAPITEL 
- EINFÜHRUNG - 


ABENTEUER, sind außergewöhnliche Erleb- 
nisse eines Menschen, die durch extreme 
Situationen und Gefahren gekennzeichnet 
sind und sich unauslöschlich der Erin- 
nerung des Abenteurers einprägen. 

Sie üben einen großen Einfluß auf die 
Psyche des Menschen aus und faszinieren 
bereits seit undenklichen Zeiten auch an 
den Geschehnissen unbeteiligte Personen. 
Diese Eigenschaft machte sich die Dich- 
tung zunutze, und der Lauf der Zeit 
führte zur Entwicklung diverser litera- 
rischer Spielarten. 

Waren es zunächst Minnesänger, die dem 
Volke oder auch gekrönten Häuptern von 
den Taten ferner Helden berichteten, so 
erwuchsen diese Spielmannsdichtungen im 
12. Jahrhundert zu großangelegten Epen 
wie "Lanzelot‘° oder Wolfram von Eschen- 
bachs "Parzifal’‘. 

“Don Quijote‘ und °Münchhausen’ begei- 
sterten mit ihren Erlebnissen ebenfalls 
Tausende. 

Nach dieser Zeit des Schelmenromans 
machten sich die Reiseerzählungen (De- 
foe, Cooper, Karl May) das Thema Aben- 
teuer zunutze bis die Entwicklung mit 
Kriminal- und Science Fiction Romanen 
ihren Abschluß fand. 


ABENTEUER HEUTE 


Wer kennt sie nicht, die auf der vorangegangenen Seite, 
welche einem Lexikon unserer Tage entstammen könnte, 
erwähnten Abenteuerromane; wer hat sich in seiner Kindheit 
nicht von den Erlebnissen Old Shatterhands oder Robinson 
Crusoes mitreißen lassen ? - Wer hat sich nicht mit den 
Hauptpersonen identifiziert und sich vorgestellt, wie man 
sich wohl selbst in der gleichen Situation verhalten hätte? 


Doch vielleicht gehören Sie tatsächlich zu den wenigen, die 
aus Gründen der Bequemlichkeit niemals ein solches Buch 
gelesen haben. Warum auch, werden Sie dann fragen, ich kann 
es doch viel bequemer haben ! 

Don Quijote habe ich im Fernsehen gesehen, Lederstrumpf und 
Karl May dank der Programmdirektoren unserer Sender sogar 
öfter, warum sollte ich also meine Freizeit in irgendeiner 
Weise aktiv gestalten, wenn es auch anders geht, und 


außerdem: Lesen ist doch schon längst nicht mehr zeitgemäß. 


Sicher, mit dem letzten Argument hätten Sie vermutlich 
recht, denn waren die Kinderstuben früher mit Puppen, 
Baukästen, Eisenbahnen oder Kinderbüchern gefüllt, so sind 
es heute ferngesteuerte Modelle, Experimentierkästen, 
Videorecorder, Telespiele und Heimcomputer. Unaufhaltsam 
ist die Technik auch hier auf dem Vormarsch, was bei 
richtiger Anwendung jedoch durchaus zu begrüßen ist. 

Es mag wohl Computerbenutzer geben, die als einzige 
Anwendung realistische Raumschlachten und diverse andere 
Schieß- und Actionspiele kennen, doch irgendwann werden 
auch diese Anwender bemerken, daß der Spielablauf immer der 
gleiche ist. Denken ist nicht gefragt - nur der 
Bewegungsrhythmus der Steuertasten ändert sich von Spiel zu 
Spiel ein wenig. 

Also unterzieht man den Softwaremarkt einer neuerlichen 
Prüfung - und stellt fest, daß die angloamerikanischen 


Computerbesitzer viel besser bedient werden; denn neben den 
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bekannten Arcade - Games haben sich in Amerika und England 
längst die Adventurespiele etabliert. 

Adventures, zu deutsch Abenteuer, stellen neben 
Strategiespielen wie Schach oder Othello sicherlich die 
intelligenteste Anwendung eines Computers zu Spielzwecken 


dar. 


Diese Programme ermöglichen es jedem Computerbesitzer , 
ohne große Risiken und Kosten die interessantesten 
Abenteuer zu erleben, wobei selbst das Unmögliche zum 
Normalzustand werden kann. 

Stellen Sie sich einen Androiden vor, den Sie mit knappen 
Anweisungen durch alle Gefahren steuern, dem Sie 
Anweisungen geben, die er dann an Ihrer Stelle ausführt und 
die über Sieg oder Niederlage entscheiden. 

Befehlen Sie ihm, daß er in eine bestimmte Richtung gehen 
soll, und er wird Ihnen daraufhin mitteilen, was eran 
seinem neuen Aufenthaltsort sieht, oder er wird Sie darüber 
aufklären, daß leider kein Weg in der gewünschten Richtung 
existiert. 

Lassen Sie ihn Dinge, die er findet, näher untersuchen und 
befehlen Sie ihm, wenn Sie es für sinnvoll halten, diese 
Gegenstände zu nehmen. 

Schließlich glauben Sie, eine im Hinblick auf das Spielziel 
sinnvolle Einsatzmöglichkeit für ein jedes dieser Objekte 
gefunden zu haben und lassen den Androiden entsprechend 
handeln; genießen Sie Ihren Triumph oder stellen Sie an 
Ihrem sich langsam entwickelnden Groll fest, wie sehr 
dieses Spiel Sie gepackt und der alltäglichen Welt 


entrissen hat. 


Haben Sie ein Adventure in den Speicher Ihres Computers 
geladen, stehen Ihnen für Ihr Spiel nicht nur einige 
farbenfrohe Screens zur Verfügung, sondern Sie agieren in 
einer komplett ausstaffierten Welt, einer Welt deren 
Geheimnisse und Rätsel nur darauf warten, von Ihnen 


entdeckt und gelöst zu werden. 
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Dabei wird ein gutes Adventure Sie wie im richtigen Leben 
agieren lassen, das heißt, Aktion und Reaktion stehen in 
gewohntem Zusammenhang, Lebenserfahrungen erweisen sich 


auch im Computerspiel als nützlich. 


Sie werden entdecken, daß selbst eine alltägliche Handlung 
wie das Öffnen einer Tür Schwierigkeiten bereiten kann, die 
sich mit Ausgabe einer Meldung wie Ich habe den passenden 
Schlüssel nicht ! ankündigen. 

Selbst Magie kann erforderlich sein, um als Antwort O0.K. - 
Die Tür ist auf. zu erhalten, denn nur die Phantasie des 
Programmierers setzt die Grenzen zwischen Möglichem und 


Unmöglichenm. 


Andererseits kann das Adventurespiel aber auch als 
Lehrmittel eingesetzt werden. So ist beispielsweise ein 
Adventure, ausgestattet mit den Daten unseres 
Sonnensystemes denkbar, welches es uns gestattet, den 
Weltraum ganz bequem von unserem Lieblingssessel aus zu 
erforschen. 

. 
Welche Methode könnte besser geeignet sein, um Kindern oder 
Wißbegierigen gleich welchen Alters Allgemeinwissen oder 


auch spezielle Informationen nahezubringen ? 


Wie auch immer, ob ein Adventure nun als Lehrprogramm oder 
nur zur Unterhaltung geschrieben wurde, ein gutes 
Reaktionsvermögen ist bei weitem nicht mehr ausreichend, um 
ein Spiel zu bewältigen. 

Sie werden schon einen scharfen Verstand und logisches 
Denkvermögen brauchen, um die zahlreichen Gefahren im Leben 
eines Abenteurers meistern zu können: 


Wie wollen Sie einen Fisch fangen, damit Sie 
nicht verhungern müssen, wenn Ihnen nur die 
bloßen Hände zur Verfügung stehen ? 

Wie können Sie den hungrigen Bären davon 
abhalten, Sie als Zwischenmahlzeit zu betrachten? 
Wie wollen Sie einen reißenden Fluß überqueren, 
der zudem noch von urweltlichen Raubtieren 


bewohnt wird ? 


Mit einigem Nachdenken lassen sich all diese Probleme 
lösen, Sie müssen nur die richtigen Ideen und entsprechend 
viel Phantasie haben: 


Ihre Aufgabe besteht darin, in ein bestimntes 
Haus, der Eingang ist durch ein Gittertor 
gesichert, zu gelangen. Bei genauem Hinsehen 
sehen Sie einige Zentimeter hinter dem Tor einen 
Schlüssel liegen, doch leider sind Ihre Arme zu 
kurz, um durch das Tor hindurch den Schlüssel 
greifen zu können. 


Wie wollen Sie in das Haus hineingelangen ? 


Nun, überklettern des Tores ist nicht möglich, 
aber einige Schritte vor dem Haus waren Ihnen 
einige Bäume aufgefallen. Irgendwann im Laufe des 


Spieles haben Sie außerdem ein Kaugummi gefunden. 
Ist der Groschen gefallen ? 

Wir haben auch einige Zeit für die Lösung dieses 
Problemes gebraucht, vor allem, weil uns niemand 
so deutlich auf verwendbare Gegenstände 


hingewiesen hatte: 


Man brauchte einfach nur zu dem Baum zu gehen und 


einen Ast abzubrechen. Dann ging man zum Eingang 
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des Hauses zurück, kaute das Kaugummi gut durch, 
befestigte es an einem Ende des Stockes, schob 
dieses Ende durch das Gitter des Tores und 
berührte den Schlüssel, worauf dieser am Kaugummi 
kleben blieb; durch vorsichtiges Zurückziehen des 
Stockes gelangte man schließlich und endlich in 
den Besitz des Schlüssels. 

Welch ein Glück, daß dieser dann auch zu dem Tor 


paßte. 


Eine elegante Lösung, nicht ganz einfach, aber vom Pro- 
grammierer schon während der Entwicklungsarbeit genau so 
geplant. Ich sollte allerdings ergänzen, daß in der dem 
Spiel beigefügten Anleitung einige Spielerfahrung 


vorausgesetzt wurde. 


Vielleicht hat obiges Beispiel Sie bereits in 
"Abenteuerlaune’ versetzt, sollten Sie die Kraft des 
geschriebenen Wortes zur Faszination jedoch noch nicht 
bemerkt haben, dann führen Sie sich bei nächster 
Gelegenheit doch einmal die Unendliche Geschichte zu 
Gemüte. 


Welche Steigerungsmöglichkeiten werden sich nun durch die 
Implementierung guter Romane in Computersysteme ergeben ? 


Vielleicht wird es sich eines Tages als notwendig erweisen, 
die Erläuterung des Begriffes Abenteuer’ in unseren Lexika 


zu ergänzen: 


Im 20.Jahrhundert ermöglichte die fort- 
geschrittene Computertechnik den Aben- 
teuerroman zum Mitspielen. Als Meilen- 
stein gilt Scott Adams "Adventureland"; 
es folgten zahlreiche weitere sogenannte 
Adventures, die bis zu perfekten Weltsi- 
mulationen entwickelt wurden. Zahlreiche 
Buchautoren mit bekannten Namen (z. B. 
Michael Crighton) erkannten rechtzeitig 
die neuen Möglichkeiten und schufen mit 
ihren Werken für viele Menschen einen 


Ausgleich zur Alltagswelt. 


GESCHICHTE UND ENTWICKLUNG DER ADVENTURES 


Nachdem aus der ersten Rechenmaschine ein 
programmgesteuertes Rechengehirn geworden war, setzten in 
Programmiererkreisen die unterschiedlichsten Bemühungen 
ein, den Computern menschliches Denken und menschliche 
Verhaltensweisen beizubringen. Im Jahre 1966 gelang es 
schließlich Joseph Weizenbaum vom Massachusetts Institute 
of Technology mit seinem Programm ELIZA, nicht nur die 
Fachleute, sondern auch die Öffentlichkeit zu 
interessieren. 

Eliza, in abgemagerten Versionen heute auch für jeden 
Microcomputer erhältlich, simuliert einen Psychiater und 
ahmt dessen typische Gesprächstechnik nach. Bei Versuchen 
mit Testpersonen zeigten sich diese nach der jeweiligen 
Sitzung sehr überrascht, einer Maschine ihre persönlichsten 


Probleme mitgeteilt zu haben. 


Die weitere Entwicklung der Künstlichen Intelligenz brachte 
den Fachwissenschaftlern ein auf einer PDP-10 
implementiertes Programm: ADVENTURE - Colossal Cave. Zur 
Abwechslung durften die gelehrten Herren auf einem anderen 
Gebiet forschen, nämlich nach Schätzen in einer düsteren, 
von Magie beherrschten Welt. Colossal Cave erfreute sich in 
Fachkreisen einer recht großen Beliebtheit und wurde 
schließlich im Sommer 1979 dann auch einer größeren 
Öffentlichkeit zugänglich gemacht. Die heute wohl jedermann 
bekannte Firma MICROSOFT veröffentlichte Microsofts 
Adventure, eine Diskettenversion dieses Uradventures für 
den damals in Amerika populärsten Microcomputer, den 
TRS-80. 


Salonfähig gemacht wurden die Adventures jedoch schon im 
Jahre 1978 von einem jungen Amerikaner namens Scott Adans, 
welcher mit seinem ADVENTURELAND den Grundstock für den 
Newcomer ADVENTURE INTERNATIONAL legte. 


Auch in diesem Spiel geht es darum, in einer mystischen 
Welt diverse Schätze zu finden, was natürlich durch 
Drachen, Labyrinthe, Lavaströme und sonstige Eigen- und 
Unarten erschwert wird. Dabei fängt alles ganz harmlos 
mitten im Walde an. Doch wenn man sich erst einmal 
orientiert hat und weiß, in welche Richtung man sich wenden 
muß, und dann auch noch den Eingang in das unterirdische 


Reich findet, dann 


Die Nachfrage nach ADVENTURELAND war riesig, wohl auch 
deshalb, weil es noch keine Spiele in Spielhallenqualität 
gab, und so wurde wegen des großen Erfolges aus diesem 
ADVENTURELAND rasch eine Reihe von 12 Adventures, wobei 
durch geschickte Wahl der Thematik das Interesse der Kunden 
wachgehalten wurde. 

Wollten Sie sich nicht auch schon immer einmal mit dem 
Grafen Dracula anlegen - in The Count können Sie es. Oder 
möchten Sie lieber einen Saboteur in einem Atomkraftwerk 
finden - kein Problem, Mission Impossible macht’s möglich. 


zu dieser Zeit erschien auf dem amerikanischem 
Softwaremarkt als Mitreiter auf der gleichen Welle ein 
Programmtyp, der als INTERACTIVE FICTION bezeichnet 
wurde. Diese Programme sollten einen neuen Literaturtyp 
darstellen, sollten, wie der Name sagt, Bücher zum 
Mitwirken sein. Zunächst ist der Spieler nur Leser, er wird 
nach Programmstart sehr genau in die Handlung eingeführt. 
Zahlreiche Seiten flimmern über den Bildschirm, die dem 
Leser Auskunft über Vorgeschichte, augenblickliche 
Situation, Hintergründe usw. geben, und die sich eben wie 


ein Buch lesen lassen. 


So beginnt Local Call For Death wie eine 
Kriminalgeschichte: Drei Männer treffen sich in ihrem 
Clubhaus, im Verlauf des Abends wird einer von ihnen ans 
Telefon gerufen. Es ist der Neffe, welcher den Onkel, 
sichtlich erregt, um Geld bittet. Der Onkel versagt ihm 
jedoch die Unterstützung, weiß er doch aus Erfahrung, daß 


das Geld auf der Rennbahn verwettet werden wird. Anm 


nächsten Morgen erfährt er vom Selbstmord seines Neffen. 


An dieser Stelle übernimmt nun der Spieler. Er stellt ab 
jetzt eine der Hauptpersonen dar, und versucht im direkten 
Gespräch mit den Mitwirkenden den vermeintlichen Selbstmord 


aufzuklären. 


Typisch für diese Programme ist die klare Fixierung auf ein 
einziges Ziel, wie hier die Aufklärung eines Mordes. 

Um dieses Ziel zu erreichen, müssen wir als Spieler uns 
weniger irgendwelcher Gegenstände als geschickter Fragen 
bedienen. Was ist wohl interessanter, in einem Buch ein 
Gespräch zu lesen, in einem Film ein Verhör zu verfolgen, 
oder das Erfolgserlebnis zu haben, durch eigenes 


Kombinationsvermögen einen Verbrecher überführt zu haben ? 


Gerade diese Fähigkeit zu Dialogen macht den Reiz von 
Interactive Fiction aus, ein Musterbeispiel ist das 
ebenfalls bei Adventure International erschienene Encounter 
in the Park. 

In diesem Spiel begegnen wir während des 
Morgenspazierganges unserer Traumfrau, und es wird unser 
erklärtes Ziel, eben dieses Mädchen zu verführen und dazu 
zu bringen, uns ihr Ja - Wort zu geben. Der Programmierer 
hat dem Spieler zur Erfüllung dieser Aufgabe ein breites 
Spektrum an Überredungskünsten offengelassen, und es macht 
wirklich großen Spaß, zu erleben, wie diese Dame auf 
gewisse Vorschläge reagiert. 

Das schlimmste, was uns bei allzu unseriösen Vorschlägen 
passieren kann, ist, daß sie sich entrüstet von uns 
abwendet, und wir Mitteilung darüber erhalten, daß wir aus 
lauter Enttäuschung den Rest unseres Lebens im Kloster 


verbracht haben. 


Wie bereits gesagt, war das Interesse an all diesen 
Textadventures sehr groß, immer mehr Firmen 


veröffentlichten demzufolge mehr oder weniger gute Kopien 


dieser Spiele. Befleißigt durch den zunehmenden Druck der 
Konkurrenz, ließen sich daher einige Softwarehersteller 
neue Generationen von Adventurespielen einfallen. 

Es erschienen die ersten LABYRINTH - ADVENTURES. welche den 
Spieler ihrer Art entsprechend vor die Aufgabe stellten, 
lebend aus einem Gebäude zu entkommen. Fast immer endete 
ein Spiel damit, daß dieser sich hoffnungslos in dem 
perspektivisch auf dem Bildschirm dargestelltem Labyrinth 
verirrte. 


Nächste Stufe der Entwicklung waren die QUEST - ADVENTURES: 
die dann meistens auch gleich als Real - Time Adventures 
implementiert wurden. Bei diesem Sproß der großen 
Adventurefamilie wird der Spieler einem zusätzlichen 
Streßeffekt unterworfen, denn sollte er beim Erscheinen 
irgendwelcher Räuber oder anderer Unholde nicht sofort F 
für Fight eingeben und danach laufend irgendwelche Tasten 
oder gar Tastenkombinationen zu dem Zwecke zu drücken, sein 
Schwert in genau definierte Richtungen zu schwingen, endete 
das Spiel bereits sehr frühzeitig wegen zu starker 
Beschädigungen der Hauptperson. 

Leider ergibt sich aus der Konzeption dieser Spiele eine 
starke Einschränkung des Handlungsspielraumes des Spielers, 
denn es bleiben diesem nur einige wenige Aktionen wie 
Kämpfen, Verhandeln, Kaufen oder Flüchten, die ihm per 
Menü, daher QUESTion, angeboten werden. 


Die nächste Entwicklungsstufe der Adventurespiele wurde 
dank des Preisverfalls für Grafikprozessoren und RAM - 
Bausteine möglich, denn nun war es für die 
Computerhersteller nicht mehr schwierig, dem Heimanwender 
bei preisgünstigen Computern eine grafische Leistung zur 
Verfügung zu stellen, die früher nur auf vielfach größeren 


und somit auch teureren Anlagen möglich war. 
So begann im Jahre 1982 (für Apple - Benutzer etwas früher) 


mit dem Vertrieb des ersten GRAFIKADVENTURES ein neuer 
Aufschwung für diese Spiele. Denn waren sie von vielen 
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Computerbesitzern als reine Textspiele bislang verpönt 
worden, so waren sie nun wegen der vielen bunten Bilder auf 
einmal interessant; darüber hinaus erwiesen sie sich als 
hervorragend dazu geeignet, der computerunkundigen 
Verwandschaft auf die Frage 'Wwas kann denn dein Computer ?' 


zumindest ein erstauntes ’On, ist ja schön !° zu entlocken. 


An Spielwert und Ziel hatte sich natürlich überhaupt nichts 
geändert. 

Plötzlich waren jedoch weitere Käuferschichten erreichbar; 
ein Grund, viele jahrelang bekannte Adventures im neuen 
Gewande auf den Markt zu werfen: die ausführlichen 
Beschreibungen waren verschwunden, statt dessen waren die 
augenblicklichen Gegebenheiten auf dem Fernsehschirm zu 


sehen. 


Ob die Programme dadurch besser oder einfacher spielbar 
geworden waren sei dahingestellt, ich persönlich ziehe es 


jedoch vor, durch eine Mitteilung wie 


Ich bin im Wald. Um mich herum stehen lauter Bäume. 


Zwischen zwei Eichen sehe ich ein Erdloch. 


auf wichtige Dinge hingewiesen zu werden, als im 
Unterschied dazu nur einige Bäume zu sehen; diese halte ich 
dann verfrüht für ein ganz normales Stück Wald, weshalb ich 
auch schnell weitergehe, die Bäume nicht weiter untersuche 
und dadurch das Erdloch, einen kleinen schwarzen Flecken 
auf dem Monitor, natürlich übersehe. Selbstverständlich 
liegt ausgerechnet darin ein Teil des Schatzes oder aber 
ein Gegenstand, ohne den eine erfolgreiche Beendigung des 


Spieles nicht möglich ist. 
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2. KAPITEL 
- DAS KONZEPT - 
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In den folgenden Kapiteln dieses Buches werden wir 
gemeinsam Adventurespiele entwickeln. Selbstverständlich 
wünschen wir für unser Werk ein möglichst professionelles 
Aussehen, daher werden wir nicht darauf verzichten können, 
Eigenschaften und spezielle Features auf dem Markt 
befindlicher Programme zu analysieren. 

Anschließend können wir uns dann Gedanken darüber machen, 
wie wir die einzelnen Funktionen in BASIC programmieren. 
Dabei wollen wir darauf achten, daß diese einzelnen 
Routinen dermaßen aufgebaut sind, daß sie nicht nur für ein 
bestimmtes Adventure brauchbar, sondern ohne Änderungen für 
den Einsatz in allen unseren Abenteuerprogrammen geeignet 
sind. 


DIE AUFMACHUNG 


Es wurde bereits herausgestellt, daß ein Adventure den 
Spieler in eine andere Welt versetzen will, in eine Welt, 
die das Unmögliche möglich macht. Er soll hier Abenteuer 
erleben, muß sich also bewegen und handeln können, muß über 
die Resultate seiner Bemühungen informiert werden, damit er 
weitere Handlungen vornehmen kann. 

Sinnvolles und zielgerichtetes Handeln ist dem Menschen 
jedoch erst nach Gebrauch seiner Sinne möglich. Die 
Informationen, die der Abenteurer im wirklichen Leben mit 
seinen Augen, Ohren und seinem Tastsinn aufnimmt, müssen 
dem Spieler daher in geeigneter Form angeboten werden. 

Da das menschliche Gehirn bis heute nicht direkt an einen 
Computer angeschlossen werden kann, müssen uns Antworten 
auf die Fragen Wo bin ich ? Was sehe ich ? Wohin kann ich 
gehen ? Was fühle ich ? und Was sehe ich ? auf andere Art 
und Weise zugänglich gemacht werden, was hier in Gestalt 
kurzer, aber vollständiger Sätze geschieht. 


Die Erfassung der Umwelt wird allerdings in den seltensten 


Fällen bewußt ablaufen, Rauminhalte werden ohne besonderen 
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Wunsch innerhalb von Sekundenbruchteilen registriert, daher 
kann auch dem Adventurespieler nicht zugemutet werden, 
zunächst umfangreiche Abhandlungen über den gerade 
betretenen Raum zu studieren. 

Selbst wenn es nur fünf oder zehn Sekunden wären, die er 
mit dem Lesen von mehreren Zeilen Beschreibungen zubrächte, 
würde die dazu erforderliche Konzentration den Spielfluß 
hemmen und es dem Spieler unmöglich machen, sich mit der 
Spielfigur zu identifizieren und sich der Illusion einer 


Scheinwelt hinzugeben. 


Um dieses Problem zu umgehen, beschränkt man die 
Textausgabe auf ein akzeptables Minimum an Informationen 
und präsentiert diese, sofern es sich nicht um 
Grafikadventures handelt, in zwei übersichtlichen Zonen auf 
dem Monitor, von denen jede eine genau definierte Funktion 
hat. 


So wird uns die obere Bildhälfte darüber Auskunft geben, wo 
wir uns gerade befinden und was wir sehen, die untere 
Hälfte ist hingegen für die Kommunikation mit der für uns 
handelnden Hauptperson des Adventures bestimmt. Hier geben 
wir unsere Anweisungen ein und hier erfahren wir, was auf 


unsere Eingaben hin geschieht. 


Ein typisches Schirmbild könnte etwa so aussehen: 


Ich bin in einem düsteren Wald. 


Ich sehe viele alte Bäume. 


Ich kann nach Norden, Osten, Westen. 


Was soll ich tun ? 
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Für den Fall, daß wir beabsichtigen, in dem Spiel möglichst 
rasch weiterzukommen, wäre es falsch, ziellos in eine der 
drei Himmelsrichtungen weiterzumarschieren. 

Das Nächstliegendste, was ein Adventurespieler in jeder 
Situation, die für ihn neu ist, tun sollte, ist, alles auf 
das genaueste zu untersuchen. So wären mögliche Antworten 
auf Untersuche Baum etwa: Es handelt sich um alte Eichen. 
oder Auch hier greift das Baumsterben um sich. 

Diese Antworten helfen uns zwar nicht weiter, zeigen sie 
uns doch scheinbar nur, daß es doch nicht immer so wichtig 
ist, alles zu untersuchen, doch woher soll man die Antwort 
vorher wissen ? Denn auch eine Antwort wie In einem Stamm 
sehe ich eine Öffnung. wäre möglich gewesen. Vielleicht 
handelt es sich um einen alten Spechtbau, in welchem sich 
ein Teil des gesuchten Schatzes befindet; Untersuche 
Öffnung wird es an den Tag bringen. 

Hätten wir keine Anhaltspunkte gefunden, auch auf 
Untersuche Wald hin - es könnte ja ein Zauberwald sein - 
nicht, müßten wir uns entscheiden, wohin wir uns nun 
sinnvollerweise begeben wollen. 

Wie würden Sie sich in solch einer Situation verhalten, 
ohne Karte und Kompaß, hilflos und allein, weitab aller 
Wege ? 

Vermutlich würden Sie auf einen Baum klettern, um zu sehen, 


was sich in der näheren und weiteren Umgebung befindet. 


Ihre Eingabe sollte also lauten: Besteige Baum, und wenn 
Sie nicht eine Mitteilung in der Art Dazu bin ich nicht 
sportlich genug '! erhalten, wird sich das Bild auf dem 
Monitor ändern: 


Ich bin in der Krone einer alten Eiche. 
Ich sehe im Norden ein Gebirge, 
im Osten einen See, 


im Westen steigt Rauch empor. 


Ich kann nach unten. 
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BESTEIGE BAUM 
Okay |! 


Was soll ich tun ? 


Damit sieht die ganze Angelegenheit doch schon viel besser 
aus, denn nach Eingabe von U für Unten haben wir nur noch 
das Problem, zu entscheiden, welche Gegend wir zuerst 


besuchen wollen. 


Die Mitteilung Okay ! soll uns darüber informieren, daß die 
Eingabe verstanden und ausgeführt worden ist. Wäre dem 
nicht so, hätten wir beispielsweise Ich verstehe das Verb 
nicht ' erhalten, womit uns das Programm sicherlich zu 
einer anderen Ausdrucksweise veranlassen würde. Gleiches 


gilt selbstverständlich für das Objekt unserer Eingabe. 


Denkbar sind allerdings auch noch zwei weitere Antworten. 
Zum einen werden wir während eines Spieles oft die 
Mitteilung I must be stupid, but... - Ich verstehe nicht, 
was Du meinst ! erhalten, womit das Programm uns mitteilen 
will, daß es unsere Eingabe für recht sinnlos hält, was bei 
Töte Baum zweifellos der Fall wäre. Jedenfalls ist diese 
Aktion dann nicht im Spiel vorgesehen. 

Ähnlich verhält es sich mit der zweiten Standardmeldung You 
can't do that ... yet. - Das geht im Moment nicht. 
signalisiert uns, daß die benutzten Worte zwar zum 
programmierten Wortschatz gehören, der Befehl im Moment 
jedoch nicht sinnvoll ist: Nimm Schlüssel wird vom 
Adventureprogramm verstanden werden, wenn ein Schlüssel im 
Adventure auftritt, wird jedoch sinnlos, solange sich 
dieser Schlüssel nicht im gleichen Raum wie der Spieler 
befindet. 
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Dennoch dürfen wir aufatmen, denn sollten wir diese Antwort 
erhalten, sind wir auf dem richtigen Weg; es sind nur noch 
nicht alle erforderlichen Bedingungen erfüllt, um den 
Befehl auszuführen. So wird sich eine verschlossene Tür 
öffnen lassen, wenn wir uns ein für diesen Vorgang 
geeignetes Instrument beschafft haben. War die Antwort auf 
öffne Tür allerdings Ich verstehe nicht, was Du meinst. 


dann wären alle weiteren Bemühungen zwecklos. 


VORÜBERLEGUNGEN 


Der generelle Aufbau der Adventurespiele ist uns nun 
bekannt. Wir haben eine Vorstellung davon, wie unser 
Adventure sich auf dem Monitor zu präsentieren hat und 
welche Informationen bereitgestellt werden müssen. Im 
folgenden wollen wir uns näher mit den einzelnen Elementen 
unseres Adventuresystems beschäftigen und eine Konzeption 


ausarbeiten, die im nächsten Kapitel realisiert wird. 


Räume im Adventure: 


Die Adventurewelt setzt sich aus den Räumen des jeweiligen 
Spieles zusammen, d.h. jeder durch den im Adventure 
herumwandernden Spieler erreichbare Ort wird als Raum 
bezeichnet. Dabei ist dessen Größe völlig unbedeutend, es 
kann, wie in unseren bisherigen Beispielen, ein Wald, bzw. 
eine Baumkrone gemeint sein, es kann sich jedoch auch um 
das Innere eines Autos oder Kleiderschranks handeln. 

Die einzelnen Räume unterscheiden sich für den Spieler 
durch ihre Beschreibungen und ihre geografische Anordnung; 
programmtechnisch unterscheiden sie sich, wie wir noch 


sehen werden, durch ihre Raumnummer. 
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Alle diese Räume sind für den Spieler erreichbar, müssen 
also in geeigneter Weise miteinander verbunden werden. In 
jedem Adventure ist die Bewegung in die vier 
Himmelsrichtungen Norden, Süden, Westen und Osten möglich, 
einige erlauben zusätzlich Bewegungen in der Vertikalen. 
Selbstverständlich darf es jedoch nicht geschehen, daß der 
Spieler Raum 5 in westlicher Richtung verläßt, Raum 6 dabei 
von Osten her betritt, und wenn er noch einmal in Raum 5 
will, keinen Weg in Richtung Osten findet, oder, schlimmer 
noch, wenn er durch eine Bewegung nach unten wieder in Raum 
5 gelangt. 

Um der Kritik von erfahrenen Abenteurern vorzubeugen, 
Ausnahmen bestätigen auch hier die Regel, denn was wäre ein 


Adventure ohne ein magisches Labyrinth. 


Objekte 


Typisch für jeden Raum sind weiterhin die in ihm 
befindlichen Objekte. Wir müssen alle Gegenstände in den 
Räumen unterbringen, oder, korrekter ausgedrückt, jedem 
Objekt einen Raum zuordnen. Bei dieser Zuordnung vermeiden 
wir automatisch, daß irgendwelche Objekte doppelt 


existieren. 


Ein weiteres Problem stellt sich uns mit der Unterbringung 
derjenigen Objekte, die bei Spielstart gar nicht im 
Adventure vorhanden sein dürfen. - Wo bleiben sie bis zu 
ihrem Auftreten ? 


Angenommen, unser Held betritt einen Raum, und als 
sichtbares Objekt wird nur eine alte, verschlossene 
Holzkiste ausgegeben. 

Auf die Eingabe des Spielers öffne Kiste verlangen 
sämtliche Regeln der Logik, daß die alte, verschlossene 
Kiste vom Bildschirm verschwindet, dafür sollte jedoch eine 
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alte, geöffnete Kiste auftauchen, die womöglich mit 


Silbermünzen gefüllt ist. 


Nun, die Lösung dieser Probleme wird uns keine allzu großen 
Schwierigkeiten machen. Wir werden in unserem Adventure 
einen zusätzlichen Raum, den Lagerraum, installieren und in 
diesem alle zur Zeit nicht benutzten Objekte lagern. Wenn 
wir keine Verbindungen zu diesem Raum hin programmieren, 
kann der Spieler ihn auch nie betreten und somit auf 
unerwünschte Weise mit den betreffenden Gegenständen in 


Kontakt kommen. 


Im nächsten Kapitel werden wir sehen, wie einfach der 
Lagerraum und auch die gesante Adventurewelt zu 
programmieren ist; weiterhin werden wir im Verlauf des 
Buches die Notwendigkeit weiterer besonderer Räume 
einsehen. 


Eingaben 


Wie bereits aus dem voranstehenden Text hervorgegangen ist, 
bestehen die Eingaben des Spielers meist aus einem Verb und 
einem Objekt. Unser Programm wird daher zunächst testen 
müssen, ob eine Eingabe erlaubt ist, wozu eine Trennung in 
Verb und Objekt erforderlich sein wird. Sollte der Spieler 
sich verschrieben haben, oder das benutzte Verb nicht 
vorgesehen sein, muß eine entsprechende Meldung gemacht 
werden. Findet unser Adventure das Eingabeverb innerhalb 
seines Wortschatzes wieder, muß das Objekt auf gleiche 
Weise überprüft werden. 

Sind beide Worte definiert, kann das Programm in 


vorgeschriebener Weise reagieren. 


Bei der Erstellung dieses Wortschatzes muß der 


Programmierer übrigens besondere Sorgfalt walten lassen, er 
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muß alle möglichen Eingaben, die irgendein Spieler machen 
könnte, vorhersehen. 

Wie schwierig gerade dieses Unterfangen werden kann, bewies 
mir kürzlich einer meiner Bekannten, der nie zuvor ein 
Adventure gespielt hatte, und der, nachdem er das Titelbild 
zusammen mit den notwendigsten Instruktionen studiert 
hatte, alle Probleme auf einen Schlag mit Finde Schatz 
lösen wollte, einer Eingabe, mit der ich als Programmierer 


natürlich nicht gerechnet hatte. 


Nebenbei wird auch die Einbringung von Synonymen 
erforderlich werden, denn sollte der Spieler allzu lange 
damit beschäftigt sein, dem Adventure seine Wünsche 


klarzumachen, wird er schnell das Interesse verlieren. 


Gerade für uns Deutsche kann die Wahl der Worte jedoch zum 
Problem werden, denn wo der Amerikaner sich mit Climb Tree, 
Shoot Gun, Drop Box, Look leicht verständlich machen kann, 
sieht es für uns nicht ganz so eindeutig aus: Kletter Baum, 


Schieß Gewehr, Leg Kiste, Sien. 


Mitteilungen 


Die erste Ausgabe auf dem Bildschirm, die nicht mehr zu der 
Beschreibung des Raumes gerechnet werden kann, informiert 
den Spieler über die Himmelsrichtungen, in deren Richtung 


er den Ort des Geschehens wieder verlassen kann. 


Weiterhin müssen die Ausführung einer jeweiligen Aktion, 
wie auch eine eventuell darauf hin stattfindende Reaktion, 
dem Spieler deutlich gemacht werden. Im einfachsten Fall 
geschieht dies durch O.K., meist werden jedoch zusätzliche 
Mitteilungen ausgegeben, wobei die unterschiedlichsten 
Eingaben oft die gleiche Antwort erforden werden, 
Antworten, die aus eben diesem Grunde in einer Liste 


geführt, und standardisiert werden sollten. Beispielsweise 
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werden So stark bin ich nicht. oder Das hat doch wohl 
keinen Sinn! und Ich verstehe nicht, was Du meinst! recht 


häufig auftauchen. 


Standardfunktionen der Adventures 


In einem durchschnittlichen Adventure finden wir 30 - 50 
verschiedene Räumlichkeiten, in jedem Raum einen oder 
mehrere Gegenstände. Diese Gegenstände können wiederum 
irgendwelche Sachen enthalten, und da man im Adventure nie 
genau weiß, was ein paar Züge weiter unbedingt gebraucht 
wird, neigen viele Adventurespieler dazu, alles 
mitzunehmen, was ihnen zwischen die Finger kommt und nicht 
zu schwer zum Tragen ist. 

Den Überblick zu behalten, wird dabei recht schwierig, denn 
da wir alle bequem geworden sind, machen wir uns natürlich 
keine Notizen. 

Diese Erkenntnis kam den Programmierern glücklicherweise 
recht früh, so daß heute jedes Adventure nach Eingabe von 
INVENTUR alle Gegenstände, die wir mit uns führen, auf dem 
Bildschirm ausdruckt. 


Falls es sich um ein freundliches oder speziell für 
Anfänger geschriebenes Adventure handelt, können wir uns in 
verfahrenen Situationen Tips geben lassen, denn dann ist 
der Befehl HELP - HILFE implementiert. 


Im Gegensatz zur sStandardeingabe aus Verb und Objekt 
handelt es sich hier, wie übrigens auch bei Inventur, um 
einen sogenannten Ein - Wort Befehl, welcher in diesem Fall 
jedoch nicht einmal eine Aktion einleitet. 


Doch was kann dieses eine Wort nicht alles bewirken: 


Ich würde alles untersuchen zeigt uns unsere 


Nachlässigkeit, die Mitteilung Eine feenhafte Gestalt 
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erscheint und schreibt den Satz 'Sesam öffne dich’ in den 
Sand wird uns hingegen in einer verfahrenen Situation zu 
einem Freudensprung veranlassen. 

Schlechter sieht es aus, wenn wir für die Hilfe bezahlen 
sollen: Ein Troll erscheint und sagt, daß uns für seine 
Hilfe 10 Punkte abgezogen werden. Er will wissen, ob wir 
Hilfe benötigen ? 

Dunkle Wolken werden vermutlich in den Fällen am Horizont 
auftauchen, wenn wir auf die Eingabe von Hilfe folgende 
Nachricht erhalten: Hilfe’ ist in diesem Adventure nicht 
vorgesehen ! oder wenn als Antwort nur die allgemeine 


Spielanweisung wiederholt wird. 


Sicherlich mag es ärgerlich sein, wenn man an einer 
gewissen Stelle trotz aller Mühen nicht weiterkommt, jedoch 
sollte niemand die letzten zwei Beispiele als einen Akt der 
Boshaftigkeit des Programmierers ansehen; wäre die 
Hilfsfunktion durchgehend gewährleistet, würden einige ganz 
Schlaue das Adventure in 30 Minuten lösen, dabei aber 
niemals die Faszination eines solchen Programmes 
kennenlernen. 

Einige Programme achten daher auf den Gebrauch dieser 
Funktion und verweigern bei allzu häufiger Anwendung 
schließlich jede Hilfe oder lenken den Spieler gar auf 


falsche Fährten. 
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3. KAPITEL 
- DIE VERWIRKLICHUNG - 
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HINWEISE ZU DEN LISTINGS 


Bevor wir mit der Programmierung beginnen, möchte ich 
Ihnen noch einige Hinweise eher technischer Natur 
geben, die mit dazu beitragen sollen, daß Ihnen der 
Spaß an der Arbeit mit diesem Buch nicht durch 
irgendwelche auftretenden Fehler vergällt wird. 


Sicherlich werden die folgenden Programmzeilen nicht 
die ersten sein, die Sie mühsam über die Tastatur 
eingeben, und so werden Sie auch die Erfahrung 
gemacht haben, daß sich trotz aller Sorgfalt immer 


wieder Tippfehler einschleichen. 


Geradezu prädestiniert für Fehler dieser Art sind die 
DATA - Zeilen, besonders, wenn diese nur Ziffern 
enthalten wie es auch hier der Fall sein wird. 

Weiterhin ist es in einigen Zeilen unerläßlich, diese 
genau so einzugeben, wie sie abgedruckt sind. Dies 
gilt insbesondere für die Anzahl der Blanks 


(Leerzeichen) in den Strings (Zeichenketten). 


Um Ihnen eine wirksame Kontrollmöglichkeit zu geben, 
sind alle Listings in diesem Buch so abgedruckt, wie 
Sie sie nach Eingabe von LIST auf Ihrem Bildschirm 


sehen müßten. 


Überprüfen Sie daher, wenn Sie den Eindruck gewinnen, 
daß irgendetwas wohl nicht wie vorgesehen 
funktioniert, zunächst nur jeweils die ganz rechts in 
einer Zeile stehenden Buchstaben, stimmen sie nicht 
überein, haben Sie mit allergrößter 
Wahrscheinlichkeit bereits die fehlerhafte 


Programmzeile gefunden. 
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Darüber hinaus sollten Sie nur die vorgegebenen 
Zeilennummern verwenden, was den Erhalt der 
Funktionsfähigkeit Ihres Programmes garantiert. 

Denn mit der weiteren Entwicklung werden einige 
Programmzeilen ausgetauscht wie auch zusätzliche 


Routinen eingefügt werden. 
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DIE SPIELIDEE 


Damit haben wir das Mindestmaß an grauer Theorie bewältigt, 
alles was uns noch fehlt, ist eine Geschichte, die wir als 
Abenteuerspiel realisieren wollen. Dann können wir unseren 
CPC 464 einschalten und mit der Praxis beginnen. Vielleicht 
haben Sie bereits eine feste Vorstellung von Ihrem ersten 
Adventure, wenn nicht, lassen Sie sich doch durch folgende 


Vorschläge inspirieren. 


1. DAS SPUKHAUS 

Sie erhalten den letzten Brief von Ihrer Tante, ein 
Schreiben, in dem sie Ihnen ihr altes 
hochherrschaftliches Haus vererbt. Stutzig macht 
Sie jedoch der Hinweis, daß Sie sich vorsichtig 
verhalten sollen, denn sonst könne es Ihnen wie 
Ihrem Onkel ergehen. Sie lassen sich durch 
solcherlei Gerede nicht davon abhalten, das Haus 
aufzusuchen. Sogleich stellen Sie allerlei 
Ungereimtheiten fest, finden eine geheime 
Bibliothek mit Büchern über Geisterbeschwörung, 
entdecken im Keller eine Opferstätte. Zahllose 
Geister machen Ihnen das Leben schwer, bis Sie 
schließlich entdecken, daß einer Ihrer Vorfahren 
den Sektenführer zum Ausbau der eigenen Macht 
ermordet hatte und zur Strafe lebendig eingemauert 
worden war. Sie sollen ihm nun zur ewigen Ruhe 


verhelfen. 


2. DAS VERMÄCHTNIS DES ALTEN 

Ihr Freund und Nachbar, ein berühmter 
Wissenschaftler, ist unter mysteriösen Umständen 
ums Leben gekommen. Sie erhalten eine Notiz, in der 
er Sie bittet, sein Lebenswerk zu vollenden. 
Nachdem Sie es geschafft haben, sein bislang 


geheimes Labor zu betreten, ist es Ihre Aufgabe, 
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seinen Supercomputer in Betrieb zu nehmen. Dieser 


gibt Ihnen dann weitere Hinweise. 


3. STAR ODYSSEY 
Ihr Raumschiff wird durch einen kosmischen Sturm so 


stark beschädigt, daß Sie auf einer unbemannten 


Station landen müssen, um Ersatzteile zu 
beschaffen, damit Sie zur Erde zurückkehren 
können. 


4.  GOLDRAUSCH 

Sie treffen in der Wildnis auf einen tödlich 
verletzten alten Mann. Dieser macht Ihnen 
Mitteilung über seine Goldmine. Er zeigt Ihnen 
einige Goldstücke und berichtet Ihnen, daß er an 
sieben verschiedenen Stellen auf dem Minengelände 
weiteres Gold versteckt hätte; da er es nicht mehr 


benötige, könnten Sie es sich holen. 


Diesen zuletzt gemachten Vorschlag, ein Adventure des Typs 
Schatzsuche, möchte ich als Grundlage für die nächsten 
Kapitel dieses Buches nehmen, und gemeinsam mit Ihnen 
ausarbeiten. Selbstverständlich steht es Ihnen frei, eine 
eigene Idee zu realisieren, jedoch werde ich bei allen noch 
vorzustellenden Erweiterungen immer wieder Bezug auf 


Goldrausch nehmen. 
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DIE GESTALTUNG DER WELT 


Mit der Wahl des Themas steht der grobe Ablauf des 
Adventures bereits fest. Im folgenden werden wir einzelne 
Strukturen ausarbeiten und diese immer weiter verfeinern, 
bis eine bis ins kleinste geplante Welt geschaffen worden 
ist. 


Genauso wollen wir auch bei der Programmierung verfahren; 
Schritt für Schritt werden wir unser Adventure aufbauen und 
uns immer wieder von der korrekten Funktion der einzelnen 


Routinen überzeugen. 


DIE KARTE 


Am Anfang steht zunächst das Nichts. Doch werden wir die 
für unser Spiel so dringend benötigte Welt im folgenden 
nach unseren Vorstellungen schaffen. Was unsere Welt bieten 
muß, legt das Thema fest. Goldrausch wird vermutlich in und 


um einem Bergwerk stattfinden. 


Stellen wir uns die Mine einmal vor: ein zerklüfteter 
Abhang voller Geröll; ein Werkzeugschuppen; Holzrinnen, die 
das für die Goldwaschung benötigte Wasser eines 
Gebirgsbaches heranführen; morsche, trockene Holzbalken, 
die den düsteren Eingang säumen; dunkle Gänge voller 
Gefahren. 


Sicherlich werden uns ohne große Schwierigkeiten noch 
zahlreiche ähnliche Bilder einfallen, die uns eine für die 
vorgesehene Handlung ausreichende Menge Räume finden lassen 


werden. 


Unser konkretes Beispiel möchte ich zunächst auf nur sechs 


Räume beschränken. Beginnen wollen wir mit einer Wanderung 
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durch einen Wald bis wir zur Mine gelangen, wo unsere 


Aufgabe darin bestehen wird, die Schätze zu suchen. 


Damit ist der vorläufige Beginn von Goldrausch festgelegt. 


Um jedoch über Sieg oder Niederlage des Spielers 
entscheiden zu können, müssen wir ebenfalls ein 
erfolgreiches Spielende festlegen, mit weiterem 


Fortschreiten unseres Projektes natürlich auch mehrere 
verlustbringende Situationen. 


So können wir uns mit dem Finden aller Schätze begnügen, 
können dem Abenteurer aber auch die Aufgabe stellen, den 
gefundenen Schatz an einem sicheren Ort zu deponieren. 
Zunächst soll das Auffinden des Goldes jedoch ausreichend 


sein. 


Aufgabe und Ziel stehen fest, ebenso zwei wesentliche 
Handlungsorte. Da ist zum einen der Wald, in dem wir 
starten und den wir aus zwei Räumen aufbauen werden, und 
zum anderen die Mine. Allerdings ist uns klar, daß wir in 
dieser kleinen Welt keine Handlung ablaufen lassen können. 
Denn wir brauchen Platz, um einige Gegenstände verstecken 


und dem Spieler einige Fallen stellen zu können. 


Normalerweise wird ein Bergwerk wohl auch kaum zwischen den 
Wurzeln eines Baumes beginnen, wir müssen geeignete 
Übergänge der Landschaft schaffen, um das Spiel realistisch 


zu gestalten. 


Drei weitere Räume stellen uns zur Ausarbeitung der ersten 
Version unseres Adventures genügend Platz zur Verfügung, 
wir können nun eine Liste aller auftretenden Orte 


formulieren: 


im Wald 
im Wald 
durch einen Felshang begrenzter Waldrand 
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eine Waldlichtung 
Waldlichtung am Berghang 


Eingang ins Bergwerk 


Der nächste Schritt zum fertigen Programm ist 
zweckmäßigerweise die Anfertigung einer Karte, in der alle 
Orte als Rechtecke dargestellt werden. Diese Rechtecke 
werden durchnumeriert und mit ihrer Raumbeschreibung 
versehen, wobei wir bereits auf eine passende Formulierung 
achten und auch nach Möglichkeit die Zeilenlänge von 40 
Zeichen berücksichtigen, die wir auf unserem Schneider 
verwenden wollen. So muß sich unsere Beschreibung 


reibungslos an den einleitenden Text Ich bin anfügen. 


Welche Nummer der einzelne Raum erhält, spielt keine Rolle. 
Wir müssen nur mit eins beginnen und fortlaufend 
weiterzählen, wodurch wir auch doppelte Numerierungen 
verhindern. Anschließend verbinden wir die Räume 
untereinander und notieren an jeder Begrenzung die 


entsprechende Himmelsrichtung. 

Aus dieser Karte läßt sich nun ohne weiteres ablesen, daß, 
wenn der Spieler sich beispielsweise in Raum 3 befindet, 
folgende Mitteilungen auf dem Monitor ausgegeben werden 
müssen: 


Ich bin im Wald vor einem Felshang. 


Weiterhin gibt uns unsere Karte Aufschluß über die 


möglichen Bewegungsrichtungen: 


Ich kann nach Westen, Süden. 


In unserem Programm könnten wir nun für jeden Raum eine 
Bedingung der Art Wenn Spieler in Raum 3, dann drucke Ich 


bin im Wald vor einem Felshang.’ programmieren, würden 
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damit unseren Speicher aber schon nach kurzer Zeit gefüllt 


haben. 


Das Prinzip ist jedoch richtig. Wir werden alle Räume in 
einem Variablenfeld speichern, und zur Ausgabe der 
Beschreibung eines Raumes auf das jeweils benötigte Element 


zugreifen. 


tanz 


auf einer Wsldlichtung 


= 
[29 
£ 
© 
nm 
- 
„@ 
62 
£ 


Waldlichtung 
Gebirgshang 


ergwerk 


im Wald 


Eingang ins F 
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EXKURS: VARIABLEN & FELDER 


Um Zwischenergebnisse oder Daten eines Programmes zu 
speichern, werden in jeder Computersprache Varıablen 
verwendet. 


Diese Variablen verhalten sich wie kleine Fächer, in denen 
etwas zur Aufbewahrung abgelegt werden kann. Diese Fächer 


haben Namen, Kofferraum oder Schreibtischschublade wären 


möglich. Dabei gibt es dann Fächer gleicher Art: am 
Schreibtisch untereinander Schublade 1, Schublade 2 3, 
usw. Jedes Fach heißt Schublade und unterscheidet sich vom 
nächsten nur durch seine Nummer. So auch in Basic: Wir 


können jeder Variablen einen eigenen Namen geben, oder auch 
gleichartige mit einem einzigen Namen und einer Indexnummer 
versehen, diese wird dann in Klammern hinter die 
Bezeichnung der Variablen geschrieben. 

Dabei lassen sich zwei grundsätzliche Variablentypen 
unterscheiden. Die einen nehmen nur Zahlen auf, Zahlen, mit 
denen auch gerechnet werden kann; dıe anderen Variablen 
dienen der Aufnahme von Texten. Zusammensetzung und Länge 
der Texte spielen keine Rolle, genauer: wir wollen jedes 
Zeichen auf unserer Tastatur und Längen bis zu 255 Zeichen 
hintereinander erlauben. 

Korrekte Beispiele wären: A, Al, A2, TEXTI für numerische 
Varaiablen {nur Zahlen), und AS, AIS, A2S, TEXTIS für 
Stringvariablen. Im Gegensatz zu dıesen einfachen Variablen 
wären A(ı), Al2), A(3) bzw. AS(1ı), AS(2), AS(3) dann die 
entspechenden indizierten Variablen. 

varüber hinaus erlaubt Ihnen der Schneider CPC 46% dann 
noch eine Differenzierung der numerischen Variablen in 


ganze Zahlen und Gleitkommazahlen. 


Vielleicht sind Ihnen auch einige unserer Mitmenschen 
bekannt, die versuchen, ihre Wohnung durch das Aufstellen 
von mit kleinen Miniaturen gefüllter Setzkästen - sie 
wurden für die Aufbewahrung der kleinen Lettern in einer 


Druckerei geschaffen - zu verschönern; wir Anfänger stellen 
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uns jetzt einmal jedes einzelne Kästchen als eine Variable 
vor. 

Um gleich ein praktisches Beispiel zur Hand zu haben, 
führen wir, allerdings besser nur in Gedanken, folgendes 
durch: 

Aus unserer Adventurekarte schneiden wir die Rechtecke der 
einzelnen Räume& aus. Diese legen wir in jeweils einen 
Kasten, achten dabei jedoch darauf, daß die frühere 
Anordnung der Räume erhalten bleibt, d.h. ganz oben links 
liegt unser Wald, in der zweiten Reihe links außen liegt 
der Eingangsstollen. 

Auf die Frage, wo das Bergwerk sei, könnten wir mit in der 
ersten Spalte der zweiten Reihe’ antworten, ebenso sind die 
Positionen aller anderen Räume durch die Koordinaten Reihe 
und Spalte festgelegt. Diese Anordnung wird in 
Computersprachen als zweidimensionales Feld bezeichnet, 
oder, viel schöner, als Array. 

In Basic würden wir unseren Setzkasten als Variablenfeld 
KARTES (S weil Texte gespeichert werden sollen) bezeichnen, 
und den einzelnen Variablen folgenden Inhalt zuordnen: 
KARTES(1,1) 
KARTES(1,3) 
KARTES(2,1) 


"im Wald" erste Reihe u. erste Spalte 


"am Felshang" erste Reihe, dritte Spalte 


"Eingang Bergwerk" usw. 
Ab Zeile 500 geben wir daher folgenden Programmtext ein: 
500 raum$(1)="im Wald." 
510 raum$(2)="im Wald." 
520 raum$(3)="*im Wald vor einem Felshang 
530 raum$(4)="auf einer Waldlichtung." 


540 raum$(5)="auf einer Waldlichtung." 


550 raum$(6)="vor einem Bergwerksstollen 


Damit existieren die Räume in unserem Computer, es fehlt 


uns noch die Spielfigur, welche sich in der programmierten 
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Welt bewegt und uns die Situation, in der sie sich gerade 
befindet, beschreibt. Ihr Aufenthaltsort wird natürlich von 
unseren Eingaben abhängig sein; wir führen daher eine 
weitere Variable, die wir SPIELER nennen wollen, ein, diese 


speichert die jeweilige Position des Spielers. 


Sinnvolle Werte für diese Variable sind bislang die Zahlen 
eins bis sechs, denn PRINT RAUM$(SPIELER) druckt dann die 
jeweilige Beschreibung des Aufenthaltsraumes aus. Geben wir 


zu Testzwecken die nächsten Zeilen ein: 


Achtung |! Ich möchte Sie noch einmal 
bitten, die angegebenen Zeilennummern 
unbedingt beizubehalten, da einige der 
Zeilen mit der weiteren Entwicklung 
verändert, wie auch nicht benutzte 
Nummern durch zusätzliche Programmzeilen 


belegt werden! 


1140 PRINT "Ich bin *; 

1150 PRINT raum$(spieler) 

1390 INPUT"Spieler in welchen Raum“ ;spie 
ler 

5000 GOTO 1140 


Erkundungen unserer Welt werden dadurch möglich, doch ist 
die Art der Weiterbewegung keineswegs befriedigend. Wir 
wollen nicht wahllos von einem Raum in einen anderen 
springen, sondern streben eine gezielte Orientierung nach 
den Himmelsrichtungen an. 

Normalerweise wird der gerade vom Spieler besuchte Raum 
mindestens einen, maximal sechs Ausgänge haben. An Raum 1 
grenzt im Osten Raum 2 an, in die Richtungen Norden, Süden 
und Westen, ebenso nach oben und unten, führt kein Weg. 


Wenn wir darin übereinkommen, daß die Himmelsrichtungen 
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stets in der Reihenfolge N, S, W, O, Oben und Unten genannt 


werden, kann Raum 1 folgendermaßen spezifiziert werden: 


1 im Wald "Ta Tıkının 


Zweckmäßigerweise werden Ausgänge dann nicht durch ein X 
markiert, sondern es wird explizit der in dieser Richtung 


zu erreichende Raum aufgeführt: 


ı im Wald 0,0,0,2,0,0 
2 im Wald 0,0,1,3,0,0 


Diese sechs Werte werden für jeden Raum in einer Variablen, 
nennen wir sie DURCHGANG, gespeichert. Da hier zwei 
verschiedene Werte (Raum und Richtung) den zu betretenden 
Raum kennzeichnen, ist die Speicherung in einem 
zweidimensionalem Feld angebracht, wobei die Reihe jeweils 
gleich dem Raum ist und die Spalten eins bis sechs den 
möglichen Wegen entsprechen. 


RAUM N Ss W [e] OB U 
1 [e] o [0] 2 [0] [0] 
2 [6) [0] 1 3 [6) {0} 
3 [0] 4 2 [0] [6] o 
4 3 oO 5 [6] oO [0] 
5 [0] [6] 6 4 [0] o 
6 [6] [0] [6] 5 {0} {0} 
Es dürfte niemandem schwerfallen, diese Richtungstabelle 
(auch Travel - Table genannt) zu programmieren. 
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Anfänger, welche die nächsten Zeilen nicht verstehen, sehen 
sich bitte unser vorangegangenes Setzkastenbeispiel noch 


einmal an. 


501 DURCHGANG(1,1)=O : DURCHGANG(1,2)=0 
502 DURCHGANG(1,3)=0O : DURCHGANG(1,4)=2 
503 DURCHGANG(1,5)=0O : DURCHGANG(1,6)=0 


Obige Zeilen programmieren den Durchgang von Raum 1 nach 
Raum 2 in östlicher Richtung. Entsprechend könnten wir mit 
den anderen Räumen verfahren, würden dabei jedoch sehr 
verschwenderisch mit unserem Speicherplatz umgehen (wie oft 
schreiben wir Durchgang’ ?), außerdem bereitet die immense 


Tipparbeit nicht allzu viel Vergnügen. 


Aus diesem Grunde verzichten wir auf die Zeilen 501 bis 
503, und rufen uns an dieser Stelle lieber die Befehle DATA 
und READ in die Erinnerung zurück. 


EXKURS: READ DATA 


Üblicherweise benutzen wir die INPUT - Anweisung, um Daten 
per Tastatur an ein laufendes Programm zu übergeben. Sie 
hat die Form INPUT Var, wobei Var eine beliebige Variable 
sein kann. Zur sequentiellen Eingabe mehrerer Daten kann 
eine ausreichende Anzahl Variablen, durch Kommata getrennt, 
angehängt werden: INPUT LÄNGE, BREITE, HÖHE kann somit drei 
Zahlen nacheinander zur weiteren Verarbeitung ins Programm 
übernehmen. 

Sind die Daten bereits bei Programmstart bekannt, können 
sie direkt ins Programm eingebaut werden, was natürlich nur 
sinnvoll ist, wenn diese Daten für jeden Programmlauf stets 
gleich sind. Die dazu notwendigen Schlüsselworte lauten 
READ und DATA. INPUT wird durch READ ersetzt: READ LÄNGE, 
BREITE, HÖHE leistet daher die gleiche Funktion, die 
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Eingabedaten werden mit DATA 1,2,3 in einer beliebigen 
Programmzeile bereitgestellt. 

Wichtig zu wissen ist, daß die Daten in der auftretenden 
Reihenfolge eingelesen werden, die Zahl der Daten in DATA - 
Zeilen muß daher gleich der Zahl der Variablen in READ - 
Anweisungen sein, andernfalls tritt eine Fehlermeldung auf 
bzw. werden nicht alle Daten berücksichtigt. 

Sollen die Daten wieder mit dem ersten Element beginnend 


eingelesen werden, so ist der Befehl RESTORE zu verwenden. 


Wir geben daher folgende Zeilen in unseren 464’er ein: 


500 REM ****ktxxskkkk% RAUMBESCHREIBUNGEN 
501 DATA"im Wald" 

502 DATA"im Wald“ 

503 DATA"im Wald vor einem Felshang“ 

504 DATA"auf einer Waldlichtung" 

505 DATA"auf einer Waldlichtung" 

506 DATA"vor einem Bergwerksstollen" 


Nun müssen die Daten an die Arbeitsvariablen überwiesen 
werden. Diese Zuweisung erfolgt durch READ raum$(raum), 
wobei raum natürlich nacheinander die Raumnummern eins bis 
sechs annehmen muß. Um Fehler zu vermeiden, muß die Anzahl 
der Räume bekannt sein; wir führen die Variable AR = Anzahl 
Räume ein. Zweckmäßigerweise sollte sie gleich zu Beginn 
des Programmtextes winitialisiert werden, damit spätere 
Erweiterungen des Adventures leicht durchgeführt werden 


können. 


110 ar=6 


Innerhalb einer Schleife werden die Raumbeschreibungen 


eingelesen: 


50 


845 FOR raum=1 TO AR 
850 READ raum$(raum) 
870 NEXT raum 


Ebenso wird unsere Richtungstabelle implementiert; um die 
Übersicht zu behalten, schreiben wir die Richtungswerte in 
die jeweiligen Datazeilen direkt hinter die 
Raumbeschreibungen: 


500 REM ****rwtsxkxx#% RAUMBESCHREIBUNGEN 
501 DATA"im Wald*,0,0,0,2,0,0 

502 DATA"im Wald",0,0,1,3,0,0 

503 DATA"im Wald vor einem Felshang",0,4 
,2,0,0,0 

504 DATA"auf einer Waldlichtung",3,0,5,0 
‚0,0 

505 DATA"auf einer Waldlichtung",0,0,6,4 
‚0,0 

506 DATA"vor einem Bergwerksstollen",0,0 
‚0,5,0,0 


Die möglichen Auswege müssen daher gemeinsam mit den Be- 
schreibungen eingelesen werden. Da auf jeden Raum sechs 
Richtungsdaten folgen, wird eine zweite Schleife innerhalb 


der ersten aufgebaut: 


855 FOR richtung=1 TO 6 
860 READ durchgang(raum, richtung) 
865 NEXT richtung 


Somit ist jede Reihe unseres Arrays mit einem Raum 


identisch; in den sechs Spalten einer jeden Reihe ist der 
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Raum gespeichert, den der Spieler durch Eingabe der 
betreffenden Richtung betreten kann. 


Durch diese Anordnung wird uns die im folgenden zu 
programmierende Fortbewegung des Spielers auf sehr einfache 
Art und Weise möglich sein. 

Bevor dieser sich aber überhaupt irgendwohin wenden kann, 
muß er sich über die ihm zur Verfügung stehenden Auswege 
informieren können. Wir müssen also einige Programmzeilen 
entwickeln, die die freien Himmelrichtungen im Klartext auf 


dem Bildschirm ausdrucken. 


Nehmen wir einmal an, unsere Hauptperson befindet sich 
augenblicklich in Raum 3. 
Dann wird die Reihe 3 unserer Richtungstabelle 


angesprochen: 


o000 00 
000000 


Alles was wir tun müssen, ist, die Bezeichnungen derjenigen 
Spalten auszugeben, die keine O0 enthalten; in unserem 
speziellen Beispiel die Spalten zwei und drei, Süden und 


Westen. 


Wie wir festgestellt haben, ist die Reihe des Feldes mit 
dem zu untersuchenden Raum identisch; zur Bereithaltung 
dieser aktuellen Raumnummer hatten wir zuvor die Variable 
SPIELER eingeführt. Zur Ausgabe der nicht versperrten 


Richtungen muß unser Programm somit die sechs Richtungen 
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des Raumes SP testen, und die Namen aller Spalten 


ausdrucken, welche einen Wert ungleich Null haben: 


Sechs Richtungen müssen überprüft werden: 


1250 FOR richtung=1 TO 6 

1260 IF durchgang(spieler,richtung)<>0 T 
HEN PRINT"** AUSGANG **" 

1310 NEXT richtung 


Bei einem Probelauf wird unser Programm jetzt jeden Raum 
beschreiben sowie jeden möglichen Ausgang anzeigen; leider 
aber noch nicht dessen Richtung. Deshalb bereiten wir ein 
weiteres Feld vor, ein Feld mit den Bezeichnungen der 


Richtungen (richtung$): 


1020 DATA Norden, Sueden, Westen, Osten, 
Oben, Unten 

1030 FOR richtung=1 TO 6 

1040 READ richtung$(richtung) 

1050 NEXT richtung 


In den einzelnen Elementen sind die Bezeichnungen der sechs 
Richtungen gespeichert, und wir können uns das Feld 
RICHTUNG$ als eine Art Schablone vorstellen, die während 
des Programmlaufs auf die gerade aktuelle Reihe unserer 


Richtungstabelle gelegt wird: 


1240 PRINT"Ich kann nach "; 
1260 IF durchgang(spieler,richtung)<>0 T 
HEN PRINT richtung$(richtung) 


Zur Kontrolle starten wir unser Programm und geben einige 


Raumnummern ein - ein Blick auf unsere Karte wird uns davon 


überzeugen, daß wir bisher alles richtig gemacht haben. 
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Nach diesen Vorbereitungen werden wir nun die gezielte 
Bewegung in unserem Adventure möglich machen. 

Jeder, der bereits einmal ein Abenteuerspiel geladen hatte, 
wird wissen, daß die Eingabe einer Himmelsrichtung zum 
Zwecke der Fortbewegung die wohl häufigste Anweisung an die 
Spielfigur ist. Daher sollten wir als Programmierer dem 
Spieler soweit entgegenkommen, daß wir die Eingabe des 
Anfangsbuchstabens als ausreichend betrachten, womit wir 
dem Abenteurer das Ausschreiben der Himmelrichtungen, und 
somit mehrere hundert Tastendrücke, ersparen. 

Tatsächlich lassen sich zahlreiche Abenteuerspiele finden, 
die für die Fortbewegung keine von der Befehlsdecodierung 
und -ausführung unabhängige Routine aufweisen, und explizit 
ein GEH WESTLICH erfordern. 

Wir wollen jedoch Richtungsanweisungen bevorzugt behandeln, 
was auch einer schnelleren Reaktion des Programmes auf die 


Eingabe hin zugute kommt. 


Ersetzen wir zunächst die Zeile 1390, um adventuregemäße 
Eingaben zu ermöglichen: 


1390 INPUT"Was soll ich tun“ ;eingabe$:ei 
ngabe$=UPPER$(eingabe$) 


Bevor unser Programm nun irgendwelche Manipulationen des 
Spieles durchführt sollte es zunächst die Länge der 
Spielereingabe überprüfen. Ist die Eingabe länger als zwei 
Buchstaben (denn: oben = OB), wird es sich um irgendeine 
Handlung handeln, andernfalls muß die Bewegungsroutine 
durchlaufen werden. Diese testet zunächst, ob der Weg in 
der gewünschten Richtung überhaupt frei ist, wenn ja, wird 
in der Richtungstabelle unter der entsprechenden Richtung 
(Spalte) des Raumes, in welchem der Spieler sich aufhält 
(Reihe), der neue Raum abgelesen und der entsprechenden 
Variablen (spieler) zugewiesen. Abschließend wird der 


Spieler über die Durchführung der Aktion informiert: 
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1080 PRINT 

1400 IF LEN(eingabe$)>2 THEN 1500 

1410 IF eingabe$="N" AND durchgang(spiel 

er,1)<>O THEN spieler=durchgang(spieler, 
1):PRINT"O.k.":GOTO 1080 

1420 IF eingabe$="S" AND durchgang(spiel 

er,2)<>O THEN spieler=durchgang (spieler, 

2):PRINT"O.k.":GOTO 1080 

1430 IF eingabe$="W" AND durchgang(spiel 

er,3)<>O THEN spieler=durchgang(spieler, 

3):PRINT"O.k.":GOTO 1080 

1440 IF eingabe$="0" AND durchgang(spiel 

er,4)<>O THEN spieler=durchgang(spieler, 

4):PRINT"O.k.":GOTO 1080 

1450 IF eingabe$="0OB" AND durchgang(spie 

ler,5)<>O THEN spieler=durchgang (spieler 
‚5):PRINT"O.k.":GOTO 1080 

1460 IF eingabe$="U" AND durchgang(spiel 

er,6)<>O THEN spieler=durchgang(spieler, 

6):PRINT"O.k.":GOTO 1080 

1470 PRINT"DAHIN FUEHRT KEIN WEG !":GOTO 
1080 

1500 REM ab hier spaeter Eingabeanalyse 


Mit Beginn eines jeden Spieles müssen wir dem Programm 


natürlich den Startraum mitteilen: 


150 spieler=1 


Ein kurzer Spaziergang durch unsere Adventurewelt wird uns 
nun schnell davon überzeugen, daß wir als nächstes 
unbedingt die Gestaltung des Monitorbildes in Angriff 
nehmen müssen, oder unseren Augen wird sich nach einigen 


Spielzügen ein wenig informatives Durcheinander bieten. 
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FORMATIERUNG DER AUSGABE 


Um eine saubere Bildschirmgestaltung zu ermöglichen, muß 


der Bildschirm bei Spielstart natürlich gelöscht werden: 


1070 CLS 
1080 PRINT: PRINT 


Diese Leerzeilen sind auf einem leeren Schirm 
selbstverständlich sinnlos. Erforderlich werden sie immer 
erst nach Ausführung eines Befehles, denn die Eingabe des 
Spielers, wie auch eventuell erfolgte Mitteilungen an 
diesen, müssen um eine Zeile nach oben rutschen. Dieses 
Scrollen erzielen wir durch ein PRINT in die letzte 
Bildschirmzeile und ist als Abschluß eines jeden Spielzuges 
notwendig. 

Erst mit der zweiten Print-Anweisung erzeugen wir eine 
Leerzeile, welche der Übersichtlichkeit des Bildes dient. 


Uns stellt sich nun die Frage, wie wir nach Ausgabe der 
Informationen an den Spieler aus dem oberen Drittel des 
Schirmes in die unterste Zeile gelangen, denn schließlich 
wollen wir nicht alle dazwischenliegenden Zeilen 


überschreiben. 


EXKURS: BILDSCHIRMADRESSIERUNG 


Von den Fähigkeiten her bietet uns das Locomotive Basic des 
Schneider CPC zwei Möglichkeiten. 

Zum einen wären da die Cursor - Steuerbefehle, mit denen 
die Schreibmarke um eine entsprechende Anzahl von 
Bildschirmpositionen in alle vier Richtungen und somit auch 
nach unten bewegt werden kann. Dazu muß jedoch die Anzahl 
der zu überspringenden Zeilen bekannt sein; diese wird 


jedoch bei jedem Spielzug, da von der Menge der 
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ausgegebenen Informationen, sprich Anzahl von Gegenständen, 
abhängig, variieren. 
Ohne umfangreiche Kalkulationen wird dieser Weg daher nicht 


begehbar sein |! 


Da wir Jedoch später einen dieser Steuerbefehle verwenden 
werden, soll an dieser Stelle auch kurz auf die Steuercodes 


eingegangen werden. 


Vereinfacht kann gesagt werden, daß fur den Basic = 
Interpreter jeder Befehl als eine Codezahl, als sogenanntes 
TOKEN., und nicht als Buchstabenfolge existiert. 

Alle Routinen des Interpreters, dıe fur die 
Bildschirmverwaltung vorgesehen sind, können unter 
Zuhilfenahme der Funktion CHRS$S() über diese Zahl angesprochen 
werden, wobei für die einfachen Cursorsteuerbefehle folgende 


Zuordnung gilt: 


CHRS( 8) Cursor links 
CHRS( 9) Cursor rechts 
CHRS(10) Cursor nach unten 
CHRS(11) Cursor nach oben 


So würde beispielsweise die Anweisung PRINT CHRS(11) den 


Cursor um eine Zeile nach oben bewegen. 


Für die Lösung unseres wie auch fast aller anderen sich bei 
der Schreibstellenadressierung stellenden Probleme ist der 
"LOCATE'- Befehl, welcher den Cursor auf eine genau 
definierte Position setzt, weitaus besser geeignet. 

Verwendet wird er in der Form LOCATE X,Y, wobei Y der Zeile 
und x der Schreibposition innerhalb dıeser Zeile 


entspricht: 


1390 LOACTE 1,25:INPUT"Was soll ich tun" 
‚eingabe$:eingabe$=UPPER$(eingabe$) 
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Unsere Spielanweisungen werden wir somit in Zeile 25 
eingeben und das abschließende RETURN wird den gesamten 
Bildschirminhalt um eine Zeile nach oben schieben, weshalb 
für die Mitteilung der Reaktionen an den Spieler keine 
weiteren Maßnahmen getroffen werden müssen. Mit Beginn des 
neuen Zuges macht Zeile 1080 die unterste Reihe für den 


nächsten Eingabezyklus frei. 


Leider werden beim derzeitigen Entwicklungsstand unseres 
Programmes alle Ausgaben in der untersten Bildschirmzeile 
gemacht werden, ein Effekt, der für die Ausgabe der 


Raumbeschreibungen keineswegs erwünscht war: 


1130 LOCATE 1,1 


Den Abenteurer über die freien Ausgänge zu informieren, 
wird allerdings nicht ganz so einfach sein, denn unsere 
bisherige Verfahrensweise läßt es nicht zu, mehr als drei 
Wege einwandfrei auszugeben. 

Denn es sollte kein Wort über das Ende der Zeile 
hinausgehen, ebenso sollten die Bezeichnungen der 
verschiedenen Himmelsrichtungen durch ein Komma getrennt 
und der Satz mit einem Punkt abgeschlossen werden. 


Entwickeln wir daher unter Zuhilfenahme des folgenden 
Beispieles eine Routine, welche diese Aufgabenstellung nach 


nebenstehendem Schema bewältigt. 


Ich kann nach Norden, Sueden, Osten, 


Oben, Unten. 


Fest steht zunächst, daß bevor überhaupt irgendeine 


Richtung ausgedruckt werden kann, Ich kann nach auf dem 
Monitor zu erscheinen hat (1240). 
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drucke: "Ich kann noch " 
( Druckposition =15) 


Solange noch Richtungen zu überprüfen 


Druckposition 


Richtungs- 


beschreibung drucke | drucke 
drucken e: u 


Text drucken 


drucke 
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Um nun innerhalb der Schleife die verschiedenen 
Möglichkeiten testen zu können, müssen wir zunächst Zeile 
1260 ändern: 


1260 IF durchgang(spieler,richtung)=O TH 
HEN GOTO 1310 


Der erste Ausgang wird uns dann keine Schwierigkeiten 
machen, er kann ohne alle Vorarbeit ausgedruckt werden. Wir 
müssen diese erste Ausgabe nur von allen weiteren 
unterscheiden können, was auch ohne weiteres möglich ist. 
So wird die erste Richtungsangabe immer nach "Ich kann nach 


an der fünfzehnten Schreibposition erscheinen, deshalb: 


1270 IF POS(#0)=15 THEN PRINT richtung$( 
richtung); :GOTO 1310 


Vor der Ausgabe aller folgenden Richtungsangaben müssen wir 
uns zunächst jedoch vergewissern, daß der Text auch noch in 
die gerade zu beschreibende Zeile paßt. Sollte dies der 
Fall sein, drucken wir zunächst ein Komma und dann die 
betreffende Himmelsrichtung: 


1280 IF POS(#O)+LEN(richtung$(richtung)) 
<38 THEN PRINT", ";richtung$(richtung);: 
GOTO 1310 


Sollte die Gesamtausgabelänge größer als 38 werden, erfolgt 
die Ausgabe eines Kommas sowie die Ansteuerung der nächsten 
Zeile mittels eines PRINT- Befehles: 


1290 PRINT" ,":PRINT richtung$(richtung); 
:GOTO 1310 


Mit diesen drei Zeilen haben wir alle auftretenden 
Möglichkeiten abgedeckt. Der abschließende Punkt ist auf 
jeden Fall nur ein einziges Mal erforderlich und wird 


deshalb erst nach Verlassen der Schleife gesetzt: 
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1300 NEXT richtung 
1320 PRINT". 


Vielleicht bedarf es noch einer Erklärung, warum wir die 
Zeilenlänge nur auf kleiner 38 testen, wo eine 
Bildschirmzeile doch von 1 bis 40 geht. Nun, die Antwort 
finden Sie sowohl in Zeile 1320 als auch im Komma in 1280. 


Zu guter Letzt müssen wir uns über eine weitere Möglichkeit 
Gedanken machen, die nicht nur theoretisch, sondern manchmal, 
bei schwierigeren Adventurespielen fast immer, in der Praxis 
Verwendung findet. 

Ich spreche von Räumen, die scheinbar keinerlei Verbindung 
zur übrigen Welt haben, so daß auch keine Himmelsrichtungen 
ausgegeben werden. 

In solch einem Falle wäre das Bild auf dem Monitor, beim 
derzeitigen Stand unseres Programmes, recht unschön. 

Ich kann nach wird zwar ausgegeben, aber dann folgt ein 
Punkt, wobei nirgendwo wohl die korrektere Lösung wäre. 

Wir müssen uns daher, bevor unser Programm mit der nächsten 
Aktion fortfährt, vergewissern, ob schon irgendetwas 
ausgegeben wurde, was mittels einer weiteren Variablen, der 


Kontrollvariablen gedruckt, geschehen kann: 
1240 PRINT"Ich kann nach *;:gedruckt=0 


1260 IF durchgang(spieler,richtung)=O TH 
EN GOTO 1310 ELSE gedruckt=-1 


1310 IF gedruckt=O0 THEN PRINT"nirgendwo 


"“. 
G 


Mit Start des Ausgabeteils wird gedruckt auf null gesetzt. 
Wird anschließend keine einzige Himmelsrichtung ausgegeben, 
so druckt Zeile 1310 das gewünschte "nirgendwo’. 
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GOLD. SILBER UND ANDERE NÜTZLICHE DINGE 


Eine Wanderung durch unsere Adventurewelt verschafft dem 
Abenteurer bislang einen recht trostlosen und 
uninteressanten Eindruck, stehen ihm doch keinerlei 
Handlungsgegenstände zur Verfügung. Darüberhinaus werden 
reine Ortsbeschreibungen beim besten Willen kein Spiel 
ermöglichen. Nehmen wir also wieder einmal unsere Karte zur 
Hand und bereichern wir unsere Welt um die gewünschten 
Gegenstände, wobei wir uns in der Regel auf für den 
Fortlauf des Spieles wichtige Objekte beschränken wollen. 
Denn für reine Verschönerungen wäre der spätere Aufwand zu 
groß, schließlich müssen wir gewährleisten, daß der Spieler 
alles das, was er findet, auch in die Hand nehmen und 
untersuchen kann. Dennoch kommen wir nicht umhin, in jedem 
Raum mindestens ein Objekt zu plazieren, denn daß der 
Abenteurer so ohne weiteres gar nichts sieht, ist doch sehr 
zweifelhaft. Falls die Phantasie nicht ausreicht, ist das 
betreffende Objekt eben nichts besonderes, eine 
Formulierung die wir auch deshalb so häufig in 
Adventurespielen finden, weil sie gerne zur Verminderung 
des Arbeitsaufwandes gewählt wird, denn in einem normalem 
Wald beispielsweise sind Bäume, Sträucher, Gras, Insekten 
usw. eben wirklich nichts besonderes. 

Oftmals kann jedoch auch auf unnötige Dinge nicht 
verzichtet werden, besonders dann nicht, wenn sie zum 
Milieu gehören und das Adventure einen realistischen 


Eindruck hinterlassen soll. 


So werden auch wir in unserem Wald Bäume aufstellen müssen, 
obwohl die Handlung sie nicht erfordert. In Raum zwei, der 
bereits nahe dem Gebirge liegt, vertiefen einige 
Felsbrocken den Eindruck der Wirklichkeit. Weiterhin gehört 
zu einem Bergwerk eine Baracke, egal ob es nun die 
Wohnstätte des Minenbesitzers oder ein Geräteschuppen ist. 
Irgendwo müssen wir schließlich auch die zu suchenden 
Schätze verstecken, zusätzlich sind einige Gegenstände, die 


dem Spieler eher schaden als nützen, angebracht. 
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Lassen Sie mich daher bitte im folgenden den mir 
vorschwebenden Handlungsablauf näher konkretisieren und die 
benötigten Gegenstände auswählen: 


HANDLUNGSABLAUF GOLDRAUSCH 


Die Miniversion soll dem Spieler die Aufgabe stellen, 
zwei Schätze, Goldstücke und Silbermünzen, im Umfeld 
der Mine zu finden. Bei Spielbeginn soll sich der 
Spieler im Wald befinden und sich zunächst an das 
Bergwerk herantasten müssen. Auf dem Weg zur Mine 
entdeckt er im Wald ein Erdloch, auf dessen Grund sich 
eine schwere Eisentruhe befindet. In dieser befindet 
sich das Silber, doch leider ist die Truhe mittels 


Vorhängeschloß und einer schweren Eisenkette 
verschlossen; ein passender Schlüssel läßt sich 
nirgends finden. Doch am Eingangsstollen des 


Bergwerkes liegen einige Eisenstangen, die stabil 
genug sind, um damit die Kette zu zerreißen oder das 
Schloß zu sprengen. Wir können es den Spieler auch mit 
Sprengstoff versuchen lassen, soll er in einer 
Holzhütte ruhig Dynamit finden - für uns eine gute 
Gelegenheit, sein vorzeitiges Ende zu programmieren. 
Die Goldstücke deponieren wir in einer Felsenhöhle, 
die zum Leidwesen des Spielers von einem wilden Bären 
bewohnt wird. Das wird der Spieler jedoch erst 
erfahren, wenn er die Höhle untersucht, sollte die 
Gier nach dem gelben Metall siegen und ihn dazu 
verleiten, sofort zuzugreifen, wird ebenso der Hunger 
des Bären selbigen seine Scheu vor dem Menschen 
verlieren lassen - nach dem Dynamit die zweite Falle 


für den Abenteurer. 
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stellen wir auf einem Regal in der Hütte daher eine 
Flasche bereit, die den begehrten Stoff enthält. 
Betritt der Spieler damit gewappnet die Höhle, wird 
der Bär den Honig wittern und mit der Flasche in den 
Tiefen der Höhle verschwinden, womit einem 
erfolgreichem Ende dieses Miniadventures nichts mehr 


im Wege steht. 


Die Karte zu unserem Adventure Goldrausch dürfte nun 


ähnlich der vorangegangenen Abbildung aussehen. 


DIE OBJEKTE 


Bevor wir mit der Programmierung der Handlungsgegenstände 
unser Adventure vervollständigen, werden einige weitere 


Vorüberlegungen notwendig. 


Um dem Spieler das Hineinleben in unsere Computerwelt zu 
ermöglichen, werden wir diese Welt nicht mit trockenen 


Substantiven beschreiben können, sondern wir werden uns 


bemühen, das Interesse des Spielers durch plastische 
Schilderungen wachzuhalten. Die lapidare Mitteilung "Ich 
sehe einen Bären.° läßt den Spieler unser Adventure zwar 


spielen, die Nachricht "Ich sehe einen äußerst grimmig 
dreinblickenden Bären’ wird ihn unser Adventure dagegen 
erleben lassen. 

Sollte in dem Abenteurer dann das Bestreben erwachen, einen 
neuen Freund zu finden, dann wäre eine Eingabe wie 
“"Streichel äußerst grimmig dreinblickenden Bären’ für uns 
als Programmierer zwar einfach zu realisieren, für den 
Spieler hingegen unzumutbar. 

Daher werden wir jedem Objekt neben der eigentlichen 
Objektbeschreibung einen Rufnamen zuordnen, womit wir auch 
die Möglichkeit erhalten, die Wortlänge unseres Adventures 


nach Bedarf frei festzulegen. 
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So erfordern professionelle Adventures aus dem 
englischsprachigen Raum meist nur die ersten drei oder vier 
Buchstaben eines jeden Wortes zur Identifikation. Drei 
Buchstaben sind auch für deutsche Adventures in der Regel 
ausreichend, nur bei der Realisation eines größeren 
Projektes sollten Sie zuvor eine Liste der vorgesehenen 
Gegenstände erstellen und diese aufmerksam durchsehen, 
ansonsten werden Sie bei der Programmierung der Bedingungen 
und Aktionen überrascht feststellen, wie viele für ein 


Adventure wichtige Substantive mit Sch beginnen. 


Als dritte Information neben dem ausführlichen und dem 
Kurznamen werden wir zu jedem Objekt die Nummer des Raumes 
speichern müssen, in dem der Gegenstand sich gerade 
befindet. Da sich diese Zahlen während des Spieles laufend 
ändern „ können sie nicht aus einer fest programmierten 
Programmzeile abgelesen werden, sondern müssen in 
entsprechenden Variablen bereitstehen. 

Erzeugen wir daher eine Liste, in der jeder Eintrag dem 
Aufenthaltort eines Objektes entspricht. 

Zweckmäßigerweise verwenden wir die windizierte Variable 
OB() und geben uns damit ein einfaches Mittel zur Hand, um 
die Position eines jeden Gegenstandes kontrollieren und 
manipulieren zu können. 

Denn solange ein Gegenstand nicht aktiv am Spiel beteiligt 
ist, soll OB = O sein, wir sagen, der Gegenstand befindet 
sich im Lagerraum. Andernfalls entspricht der Inhalt von 
OB() entweder dem Wert der Variablen Spieler und das 
betreffende Objekt ist somit im Raum sichtbar, oder aber er 
ist gleich -1i in dem Falle, daß der Abenteurer den 
Gegenstand mit sich führt (Inventory). 


Die folgenden Zeilen stellen alle diese Informationen zu 
den Gegenständen, die für eine Realisation des bisherigen 
Spielplanes (Goldrausch, Miniversion )\) erforderlich sind, 
bereit. 
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Nach der ausführlichen Beschreibung folgt der Kurzname, 
welcher mit den Eingaben des Spielers verglichen wird, dann 
die Positionsnummer, die den betreffenden Gegenstand einem 
Raum zuordnet. 

Die Anführungszeichen sind übrigens nur dann unbedingt 
erforderlich, wenn innerhalb der Beschreibung selbst wieder 


ein Komma verwandt wird. 


300 REM LE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2; GEGENSTAENDE 
301 DATA"viele grosse Baeume*, "baeu", 1 
302 DATA"viele grosse Baeume", "baeu",2 
303 DATA"einige Felsbrocken","fels",2 
304 DATA“eine verfallene Holzhuette", "hu 
et",3 

305 DATA"eine verschmutzte Korbflasche*, 
"flas",O 

306 DATA"Honig","honi",O 

307 DATA*’eine Holzkiste", "kist",3 

308 DATA"ein klappriges Regal","rega",O 
309 DATA"etwas Sprengstoff" ,"spre",O 

310 DATA"ein duesteres Erdloch",“erdl",O 
311 DATA*eine rostige Eisentruhe“, "*truh" 
‚oO 

312 DATA" *Silbermuenzen*","silb",O 

313 DATA*eine duestere Felsenhoehle*, "ho 
eh",5 

314 DATA"einen grimmig dreinblickenden B 
aeren","baer",O 

315 DATA"zahllose niedrige Buesche*, "bue 
s",4 

316 DATA"mehrere Eisenstangen", "eise",6 


317 DATA" *Nuggets*","nugg",5 


Genau wie bei den Raumbeschreibungen müssen wir vor 
Initialisierung der Variablen auch hier wieder die Anzahl 
der Datenelemente festlegen: 
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120 ao=17 

830 FOR objekt=1 to ao 

835 READ ob$(objekt) ,rufname$(objekt),ob 
(objekt) :rufname$(objekt)=UPPER$(rufname 
$(objekt)) 

840 NEXT objekt 


190 DIM raum$(ar),durchgang(ar,6),ob$(ao 


),rufname$(ao),ob(ao) 


Zur Speicherung aller Objekte sind 17 verschiedene 
Variablen notwendig, für die der benötigte Speicherplatz 
durch die DIMensionierungsanweisung in Zeile 190 
bereitgestellt wird. 

wie die meisten Computer, so reserviert auch unser 
Schneider CPC mit dem Start von Basic elf Elemente pro 
Liste, weshalb wir trotz des Fehlens dieser Zeile bei der 
Initialisierung der Orte keine Fehlermeldung erhalten 


hatten. 


Machen wir die Einrichtung eines Raumes nun dem Spieler 
sichtbar: 

In der Variablen SPIELER finden wir die Nummer des 
betretenen Raumes, OB() enthält die Raumnummern aller 
Objekte. Überprüfen wir daher innerhalb einer Schleife, ob 
die Positionsnummer eines Gegenstandes gleich der aktuellen 


Raumnummer ist: 


1160 PRINT"Ich sehe "; 

1170 FOR i=1 TO ao 

1180 IF ob(i)<>spieler THEN 1210 

1190 IF POS(#0)+LEN(ob$(i))+"<=39 THEN P 
RINT ob$(i);", ";:GOTO 1210 

1210 NEXT i 


Programmzeile 1180 testet für jeden Gegenstand, ob dieser 


sich in einem anderen Raum als der Spieler befindet, fällt 


dieser Test positiv aus, wird sofort das nächste Objekt 
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überprüft. Ansonsten wird die betreffende 
Objektbeschreibung in Zeile 1190 ausgegeben. Das Semikolon 
sorgt dafür, daß nicht für jedes weitere Objekt eine neue 
Ausgabezeile benutzt wird. Zur Vermeidung einer Ausgabe 


über die Zeile hinaus ergänzen wir: 


1200 IF POS(#0O)+LEN(ob$(i))+2>39 THEN PR 
INT : GOTO 1190 


Vor Ausgabe des nächsten Gegenstandes wird die Gesamtlänge 
des Ausdrucks errechnet. Wenn der Cursor durch Drucken der 
Gegenstandsbeschreibung, des Kommas und der Leerstelle 
zwischen zwei Objekten (daher +2) eine Position größer 
Spalte 39 erreichen würde, wird ein Zeilenvorschub 
ausgelöst. Danach verzweigt das Programm wieder zur Zeile 
1190, die Bedingung ist nun erfüllt und die Beschreibung 
wird ausgedruckt. 

Hinter dem letzten Objekt wirkt das Komma jedoch unschön, 
weshalb wir den Cursor um zwei Positionen nach links 


bewegen, und einen Punkt über das Komma schreiben: 


1220 PRINT CHR$(8);CHR$(8);"." 


Zum Abschluß betrachten wir auch hier wieder die 
Möglichkeit, daß keine Daten zur Ausgabe an den Spieler 
vorliegen und der Satz Ich sehe mit nichts besonderes 
ergänzt werden muß. 

Das Prinzip ist inzwischen bekannt, so daß die notwendigen 
Ergänzungen an dieser Stelle ohne weitere Kommentare 


gelistet werden können: 


1160 PRINT"Ich sehe ";:gedruckt=0 
1190 IF POS(... ... :GOTO 1205 
1205 gedruckt=-1 
1215 IF NOT gedruckt THEN PRINT"nichts b 
esonderes " 
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Nun sind wir unserem gesteckten Ziel schon recht nahe, was 
uns noch fehlt, um den Bildschirmaufbau der amerikanischen 
Originaladventures zu erreichen, sind eine Trennungslinie 


sowie eine weitere Leerzeile: 


1010 leerzeile$=STRING$(40," ") 
1230 PRINT leerzeile$; 
1330 PRINT*----------------------------- 


Ein letztes Problem werden wir wiederum erst nach mehreren 
Eingaben feststellen. Die Mitteilungen innerhalb der 
unteren Schirmhälfte rücken immer weiter nach oben und 
vermischen sich nach einigen Zügen mit den Beschreibungen 
der Umgebung. Es muß daher Aufgabe des Programmes sein, vor 
deren Ausgabe die obersten Bildschirmzeilen zu löschen, was 
durch Drucken einer ausreichenden Menge von Leerzeilen 


geschehen kann: 


1090 LOCATE 1,1 

1100 FOR zeile=1 TO 10 
1110 PRINT leerzeile$ 
1120 NEXT zeile 


DER WORTSCHATZ 


Bevor wir nun das eigentliche Spiel programmieren und uns 
mit den für einen Spieler nicht sichtbaren Aktionen des 
Programmes beschäftigen, müssen wir schnell noch die dazu 

notwendigen Verben eingeben. Diese werden, zusammen mit den 
zuvor erwähnten Rufnamen der Objekte, den kompletten 
Wortschatz unseres Adventures darstellen und somit 
Grundlage zur Verständigung mit dem Spieler sein. 

Neben einer Reihe von immer erforderlichen Verben wie 


Untersuche, Nimm, Leg werden auch sie vom Inhalt des 
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jeweiligen Adventures abhängen. Die Implementation erfolgt 
entsprechend den Räumen und Objekten, wobei eine der 
Wortlänge des Adventures entsprechende Abkürzung 
ausreichend ist: 


130 av=6 
190 DIM raum$(ar),durchgang(ar,6),ob$(ao 
), rtufname$(ao),ob(ao),verb$(av) 


200 REM KRERRKRKKKKRKKKK RK TI TI TI NK KK a VERBEN 
201 DATA unte,nimm,leg ‚oeff,benu,zers 


810 FOR i=1 TO av 

815 READ verb$(i):verb$(i)=UPPER$(verb$( 
I)) 

820 NEXT i 


Weiterhin können wir mit einigen wenigen Ergänzungen das 
Bild attraktiver gestalten. Unterschiedliche Farben werden 
uns helfen, die während des Spieles vielfältigen 
Mitteilungen zu differenzieren. Ich habe mich für einen 
schwarzen Hintergrund, auf dem die Beschreibungen der Welt 
in dunklem Blau an uns ausgegeben werden, entschieden. Die 
freien Wege wie auch die Mitteilungen an uns werden in 
hellem Blau ausgedruckt; unsere Eingaben werden in weiß 


gemacht. 


Selbstverständlich steht es Ihnen frei, andere Farben, 


entsprechend Ihrem Geschmack, zu verwenden. 
Dazu müssen Sie nur den zweiten Wert bei den INK - Befehlen 
in Zeile 10 ändern. 


10 PAPER O:INK 0,0:BORDER O:PEN 1:INK 1, 
2:PEN 2:INK 2,14:PEN 3:INK 3,26 


1130 LOCATE 1,1:PEN 1 


1230 PRINT leerzeile$:PEN 2 
1290 PEN 3:LOCATE 1,25:INPUT"Was soll ic 
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h tun" ;eingabe$:eingabe$=UPPER$(eingabe$ 
):PEN 1 


Damit haben wir die im ersten Kapitel dieses Buches 
beschriebene äußere Gestaltung erreicht und können uns dem 


Spielverhalten unseres Programmes widmen. 
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ANALYSE DER EINGABEN 


Vom Spieler gewünschte Richtungsänderungen, eine 
Befehlsgruppe mit Wortlängen von ein bis zwei Buchstaben, 
werden bereits erkannt und korrekt ausgeführt. Die 
Standardeingabe besteht jedoch immer aus Verb und Objekt, 
wobei die Wortlängen, abgesehen von der zur Erkennung der 
Begriffe notwendigen Mindestwortlänge, keinen 
Restriktionen unterworfen werden. Um wie vom Spieler 
gewünscht reagieren zu können, muß unser Programm dessen 
Eingabe überprüfen: 


ist das benutzte Verb programmiert ? 
ist das Objekt vorgesehen ? 


Können beide Fragen mit ja beantwortet werden, wird die 
Eingabe in Verb und Objekt zerlegt, Verb- und Objektnummer 
werden ermittelt; sind die Bestandteile der Eingabe nicht 
definiert, wird eine entsprechende Mitteilung an den 


Abenteurer ausgegeben. 


EXKURS: STRINGBEHANDLUNG 


Der wesentliche Unterschied zwischen einem Computer und 
einem programmierbaren Taschenrechner ist die Fähigkeit des 
Computers, mit Texten umzugehen. Natürlich hat ein Rechner 
bislang kein Verständnis für diese Texte, sondern er faßt 
sie als eine Ansammlung bestimmter Zeichen, als sogenannte 
Zeichenkette oder String auf. Bei diesen Strings handelt es 
sich im allgemeinen um Kombinationen aller per Tastatur 
eingebbarer Zeichen. Das Betriebssystem des Computers 
stellt nun eine Reihe von Funktionen zur Behandlung dieser 
Zeichenketten zur Verfügung. 

Neben einer Reihe von Konvertierungsbefehlen, zu denen 
neben UPPERS und LOWERS auch die Funktionen VAL() und 


STRS(), welche eine Zahl in einen String bzw. einen String 
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in eine Zahl verwandeln, unter anderem die Befehle LEFTS, 
RIGHTS und MIDS. 

Diese drei Funktionen stellen dem Programm zur weiteren 
Bearbeitung einen genau definierten Teilstring aus einer 
anderen Zeichenkette zur Verfügung. So ergibt die Anweisung 
LEFTS("ABCDEF",3) eine Kette der linken drei Zeichen, also 
den Substring ABC. 

Als notwendige Parameter müssen somit die zu bearbeitende 
Zeichenkette wie auch die Anzahl der gewünschten Buchstaben 
bekannt sein. Entsprechendes gilt für RIGHTS. 

MIDS(XS,S,X) stellt uns dagegen einen ab Position S 
beginnenden, X Zeichen langen Teilstring aus XS bereit. 

So wird unser Adventureprogramm beispielsweise die Position 
des Leerzeichens zwischen Verb und Objekt der Eingabe eines 
Spielers ermitteln und unter Verwendung dieser Kennzahl 
mittels der Funktionen LEFTS und RIGHTS aus EINGABES die 
zwei Substrings EVERBS und EOBJEKTS ermitteln. 

Um die Anzahl erforderlicher Buchstaben berechnen zu 
können, wird zuvor mit LEN(EINGABES) die Gesamtlänge der 


Spielanweisung ermittelt. 


Wird die Ausführung eines Spielzuges nicht in den Zeilen 
1410 bis 1470 durchgeführt, so wird, falls die Länge der 
Eingabe weniger als drei Buchstaben beträgt, angenommen, 
daß es sich um einen Eingabefehler handelt. Nachdem Dahin 
führt kein Weg! ausgegeben worden ist, beginnt ein neuer 
zug. 

Handelt es sich um eine längere Eingabe, wird der 
Programmlauf mit Zeile 2000 fortgesetzt: 


1470 IF LEN(eingabe$)<3 THEN PRINT"Dahin 
fuehrt kein Weg !":GOTO 1080 


2000 laenge=LEN(eingabe$) 

010 FOR buchstabe=1 TO laenge 

2020 pruef$=MID$(eingabe$ , buchstabe, 1) 
2030 IF pruef$<>" "THEN NEXT buchstabe 
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160 wortlaenge=4 
2040 everb$=LEFT$(eingabe$ ,,wortlaenge) 


Nach Ermittlung der Länge der gesamten Eingabe wird 
innerhalb einer Schleife jeder Buchstabe, beginnend von 
links, darauf überprüft, ob er mit einem Leerzeichen 
identisch ist. Ist das Leerzeichen gefunden, steht die 
Länge des eingegebenen Verbes (vom ersten bis zum gerade 
geprüften Zeichen minus eins) fest. 

Dieser Wert, abgezogen von der Gesamtlänge der Eingabe, 
entspricht der Anzahl der Buchstaben des eingegebenen 
Objektes. 

Somit können EVERB$ und EOBJEKT$ unter zusätzlicher 
Berücksichtigung der spieltypischen Wortlänge ermittelt 


werden. 


Wurde ein Ein Wort Befehl” verwendet (HELP), so wird die 
Verblänge gleich der Eingabelänge sein. Da kein Objekt zur 
weiteren Bearbeitung bereitgestellt werden muß, wird direkt 
(Zeile 2060) zur Verbanalyse (Zeile 2090) verzweigt. 


2040 everb$=LEFT$(eingabe$, wortlaenge) 
2050 rl=laenge-buchstabe 

2060 IF rl<O THEN 2090 

2070 eobjekt$=RIGHT$(eingabe$, rl) 

2080 eobjekt$=LEFT$(eobjekt$,wortlaenge) 
2090 FOR verbnummer=1 TO AV 

2100 IF everb$=verb$(verbnummer) THEN 21 
30 

2110 NEXT verbnummer 


Innerhalb einer weiteren Schleife wird das erste der 
eingegebenen Worte mit den im Spiel möglichen Verben 
verglichen. Wird ein identischer String gefunden, dann 
entspricht der Schleifenindex der Verbnummer und die 


Schleife wird verlassen. 
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Wurde die Schleife vollständig abgearbeitet und keine 
Identität festgestellt, so hatte der Programmierer das 
betreffende Verb nicht vorgesehen, und dem Spieler wird 


darüber Mitteilung gemacht: 


2120 PRINT"Das Verb verstehe ich nicht " 
":GOTO 1080 


Anschließend wird nach gleichem Prinzip die Objektnummer 


ermittelt: 


2130 FOR o=1 TO ao 

2140 IF eobjekt$=rufname$(o) THEN 2200 

2150 NEXT o 

2160 PRINT"Ich verstehe das Objekt nicht 
!":GOTO 1080 


Mit Eingabe dieser Zeilen haben wir einen wesentlichen Teil 
unserer Entwicklungsarbeit hinter uns gebracht. Die bislang 
entwickelten Routinen sorgen für einen ansprechenden Aufbau 
des Bildschirmes, wie sie auch das ‘Verständnis’ für die 
Eingaben des Spielers erzeugen. 

Sie ermitteln, welches der möglichen Verben der Abenteurer 
benutzt hat und mit welchem Gegenstand er etwas tun möchte, 
womit eine Verzweigung des Programmablaufes an eine zur 
Ausführung der betreffenden Aktion vorgesehene 
Programmzeile möglich wird. Wegen dieser zentralen 
Steuerungsaufgaben wird dieser Programmteil auch als 
TREIBER bezeichnet. 
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ÜBERBLICK: AUFBAU DER PROGRAMME 


Somit wird deutlich, daß unsere Abenteuerprogramme im 


wesentlichen aus drei Teilen bestehen: 


1. Daten des Adventures 
2. Adventuretreiber 


3. Ausführung der Spielzüge 


1. Die Daten stellen die Grundlage eines jeden Spieles dar. 
Sie werden zum Teil an Arbeitsvariablen übergeben oder 
innerhalb von kurzen Unterprogrammen für die Übergabe an 


das Hauptprogramm bereitgestellt. 


2. Dem Treiber fällt die Steuerung des gesamten 
Programmablaufes zu. Er gestaltet die Bildschirmausgabe, 
übernimmt die Eingaben des Spielers, wertet sie aus und 
leitet die Befehlsausführung ein. 

Der Treiber ist vom jeweiligen Adventure unabhängig und 


kann unverändert für alle Adventures übernommen werden. 


3. Der dritte Programmteil stellt das eigentliche Adventure 
dar. Treffen alle für eine Handlung notwendigen Bedingungen 
zu, so wird diese Aktion ausgeführt. 


Damit Ihnen der Überblick erhalten bleibt, fassen wir an 
dieser Stelle den Aufbau unserer Adventures zusammen, wobei 
bereits auch die noch im folgenden zu erstellenden Routinen 
mit angegeben werden. 

Aus dieser Zusammenstellung geht bereits hervor, wie 
universell unser Konzept eingesetzt werden kann. 

So werden einige kleine Änderungen am Treiber ausreichen, 
um aus einem Textadventure ein Grafikadventure zu machen, 
ebenso wird es, Dank des einheitlichen, systematischen 
Aufbaus mit genau definierten Programmzeilen für die 
diversen Funktionsblöcke, möglich sein, einen 


Adventuregenerator zu entwickeln. 
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KONZEPTIONELLER AUFBAU: TEXTADVENTURE 


DATEN 
0 100 
100 200 
200 300 
300 500 
500 600 
600 700 
700 800 
800 900 
900 1000 
ADVENTURETREIBER 
1000 1070 
1080 1330 
1331 1389 
1390 
1391 1399 
1400 1500 
1500 1600 
1600 1700 
1700 1800 
1800 1950 
1950 2000 
2000 2160 
2200 
AUSFÜHRUNG 
5000 30000 
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TITELBILD 

KONTROLLDATEN 
SPEICHERPLATZ RESERVIEREN 
VERBEN 
OBJEKTBESCHREIBUNGEN 
RAUMBESCHREIBUNGEN 
VERBINDUNGEN DER RÄUME 
STANDARDMITTEILUNGEN 

EVTL. 2. TITEL 
SPIELDATEN EINLESEN 
ALLGEMEINE SPIELANWEISUNG 


TREIBER INITIALISIEREN 
BILDSCHIRMVERWALTUNG 

BES. EREIGNISSE 

EINGABE DES SPIELZUGES 
FALLEN & HINDERNISSE 
HAUPTPERSON BEWEGEN 
INVENTUR 

SAVE GAME 

LOAD GAME 

HELP. VOKABULAR., INSTRUKT. 
SPIELABBRUCH 

ANALYSE DER EINGABE 
SPRUNGTABELLE AUSFÜHRUNG 


SPIELZÜGE 


WANN GEHT WAS ? 


Stellen wir uns nun den Spieler vor, der unsere zwei 
Schätze finden will. Mit einem Blick stellt er fest, daß er 
sich mitten in einem Wald befindet, umgeben von Bäumen und 
Felsbrocken. Als geübter Adventurespieler oder Leser der 
vorangegangenen Kapitel, weiß er, daß des Pudels Kern in 
den unscheinbarsten, alltäglichsten Dingen liegen kann. 


Wie wird er reagieren ? 


Welche Eingaben müssen wir erwarten ? 


Mit an Sicherheit grenzender Wahrscheinlichkeit probiert er 
mit Anweisungen wie UNTERSUCHE WALD, UNTERSUCHE BAUM, oder 
UNTERSUCHE FELSBROCKEN weiterzukommen. 

NIMM BAUM ist weniger wahrscheinlich, dennoch müssen wir, 
um allen Kritikern unserer Programme den Wind aus den 
Segeln zu nehmen, eine Mitteilung der Art So stark bin ich 
nicht. programmieren, außerdem animieren vielfältige 
Mitteilungen, die zeigen, daß eine Eingabe auch wirklich 
verstanden wurde, den Abenteurer zum Weiterspielen. 
Verständlich - wäre das Ergebnis jeder zweiten oder dritten 
Eingabe ein Ich verstehe nicht was Du meinst ! dann wird 
der Reiz zum Abschalten des Computers doch sehr groß. 


In der Praxis werden wir für die Räume 1 und 2 daher, weil 
wir hier noch keine Handlung vorgesehen haben, sondern nur 
unsere Welt größer wirken lassen wollen, nur die Ausgabe 
diverser Meldungen an den Spieler vorsehen, eine Aufgabe, 
die ein Print - Befehl schnell erledigt. Doch nachdem der 
Spieler Raum 3 betreten und die Holzhütte entdeckt hat, 
wird er diese ebenfalls in Augenschein nehmen und dabei das 
Regal mit der Korbflasche entdecken. Diese muß natürlich ab 
diesem Zeitpunkt, zusätzlich zum Regal und zur Hütte, in 
der Beschreibung der Szene erscheinen ("Ich sehe ...’), das 


heißt, wir müssen ihren Aufenthaltsort verändern. Weiteres 
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Kopfzerbrechen könnte uns die Eingabe NIMM FLASCHE 
bereiten: nun muß die soeben erschienene Korbflasche wieder 
verschwinden. Zurück an ihren alten Platz kann sie nicht, 
denn wenn unser Spieler INVENTUR macht, muß sie 


selbstverständlich aufgelistet werden. 


Ebenso selbstverständlich kann der Spieler die Flasche 
nicht schon in Raum 1 untersuchen, genau so wenig in Raum 
2, überhaupt sollten alle Eingaben betreffend der Flasche 
abschlägig beantwortet werden, solange diese sich nicht in 


unmittelbarer Nähe des Spielers befindet. 


Dies ist jedoch eine Geschmacksache, die im Ermessen des 
Programmierers liegt. Denn selbstverständlich darf er die 
Meinung vertreten, daß die Flasche in Wirklichkeit bereits 
seit undenklichen Zeiten unberührt in dem Regal steht, und 
daß der Spieler sie nur noch nicht gesehen hat. 

Wird dieser Spieler durch die zahlreichen Überraschungen 
eines Abenteuers jedoch gezwungen, noch einmal von vorne zu 
beginnen, kennt er die Startpositionen diverser 
Gegenstände, und man kann es ihm ohne weiteres ermöglichen, 
diese zu nehmen, auch ohne daß sie in der Zeile "Ich sehe 


gelistet worden waren. 


In der Tat wird der Vorgang des Nehmens dadurch sogar 
einfacher zu programmieren, schließlich muß eine Bedingung 
weniger überprüft werden, doch wollen wir es wie die 
Mehrheit der Adventureproduzenten halten und nur sichtbare 


Gegenstände auch greifbar sein lassen. 


So wird denn auch die Holzhütte von unserer Hauptperson nur 
untersucht werden können, wenn sie sich in greifbarer Nähe 
befindet. Den Honig werden wir erst entdecken, nachdem wir 
die Korbflasche in unsere Hände genommen und geöffnet 
haben. Der Bär wird sich nur friedlich verhalten, wenn er 
durch den Verzehr des Honigs anderweitig beschäftigt ist. 
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Alle diese Bedingungen müssen vor Ausführung eines Befehles 
zunächst auf ihre Richtigkeit überprüft werden. Bereits 
unser kurzes Adventure mit nur sechs Räumen wird somit eine 
Vielzahl an Programmzeilen erfordern. Berücksichtigen wir 
nur die zu diesem Zeitpunkt der Entwicklung eingebrachten 
Verben untersuche, nimm, lege weg, öffne, benutze, zerstöre 
und unsere siebzehn Gegenstände, so müssen wir bereits 
Aktionen für 102 unterschiedliche Spielereingaben 
programmieren. Würden wir die Programmzeilen alle ohne 
besonderes Konzept hintereinanderschreiben, wäre es leicht, 
für die auftretenden, recht langen Ausführungszeiten des 
Programmes eine Erklärung zu finden. Um sie jedoch 
möglichst gering zu halten werden wir den nun zu 
erstellenden Programmteil in mehrere Blöcke aufteilen. 


Prinzipiell stehen uns zwei voneinander verschiedene 
Möglichkeiten zur Verfügung. Zum einen könnten wir für 
jeden Raum eine ausreichende Anzahl von Programmzeilen 
reservieren, und dort für jede mögliche Aktion des Spielers 
ein paar Statements reservieren. Diese Technik wird recht 
häufig gewählt, hat auch den Vorteil, daß sie wegen der 
direkten Ausführung eines Befehles, der ja zuvor nicht 
irgendwie aufbereitet werden muß, recht schnell ist, und 
daß vor allem ein recht übersichtliches Programm entsteht, 
welches bequem und einfach, ohne Nachsehen in irgendwelchen 
Listen, erweitert oder edititiert werden kann. Sollten Sie 
sich einmal mit dieser Ausführung eines Adventureprogrammes 
beschäftigen wollen, dann soll die folgende Realisation 
unseres Raumes 1 als Anregung genügen. Beachten Sie, daß es 
sich um ein Beispiel handelt, welches mit unserem Konzept 
nichts zu tun hat, überschreiben Sie daher bitte keine 


Zeilen unseres bisher erstellten Programmes. 


100 INPUT"Was soll ich tun" ;eingabe$ 
200 REM eingabe$ in verb$ und objekt$ 
zerlegen (wie besprochen) 

300 ON raum GOTO 1000, 2000, 3000, 4000, 
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5000, 6000 
301 REM abhaengig von der Raumnummer in 
den betreffenden Raum springen 


1000 CLS: REM LE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2; Raum 1 
1010 PRINT"Ich bin im Wald." 

1020 PRINT"Ich sehe viele grosse Baeume. 
1030: 

1040 REM weitere Gegenstaende ausdrucken 
1100 PRINT"Ich kann nach Sueden, Osten." 
1200 IF eingabe$="S* THEN raum=6: GOTO 1 
00 

1210 IF eingabe$="0" THEN raum=2: GOTO 1 
00 

1260 IF LEN(eingabe$)<3 THEN PRINT "Dahi 
n fuehrt kein Weg !*: GOTO 100 

1300 IF eingabe$="INV* OR "“INVENTUR" THE 
N GOTO 200 

1400 IF everb$="UNTE" AND eobjekt$="BAEU 
“ THEN PRINT"Ich sehe nichts besonderes. 
“:GOTO 100 

1410 IF everb$="NIMM" AND eobjekt$="BAEU 
“ THEN PRINT"So stark bin ich nicht.":GO 
TO 100 

1999 PRINT"Ich verstehe nicht, was Du me 
inst.": GOTO 100 

2000 ab hier Behandlung Raum 2 

3000 ab hier Behandlung Raum 3 


Wenn Sie sich obige Zeilen angesehen oder sogar in Ihren 
CPC eingegeben haben, werden Sie feststellen, daß auf eine 
noch einfachere Art ebenfalls ein funktionsfähiges 
Adventure entstehen kann, und Sie werden sich vielleicht 
fragen, warum wir nicht dieses Konzept verwendet haben, wo 


es zudem auch noch ohne lange Kommentare zu verstehen ist ? 
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Nun, einerseits werden besonders umfangreiche Adventures 
weitaus mehr Speicherplatz benötigen, denn wir würden es 
nicht vermeiden können, identische Routinen mehrmals 
aufzuführen, da wir, um bei einem bekannten Beispiel zu 
bleiben, die Flasche in jedem Raum ablegen (sechs 
identische Programmzeilen) und, nicht zu vergessen, auch 
wieder nehmen können müssen. Diesen zwölf Zeilen stehen in 
unserem Adventuresystem ganze zwei Programmzeilen 
gegenüber. Allein das rechtfertigt unsere Wahl, doch auch 
das Argument der Übersichtlichkeit und 
Editierfreundlichkeit ist schnell zu entkräften. 

Stellen sie sich vor, bei der Erweiterung des Adventures 
werden zur Fortführung der Handlung weitere Flaschen 
benötigt, so daß wir aus diesem oder irgendwelchen anderen 
Gründen aus der Flasche lieber ein kleines Holzfaß machen 
wollen. Hatte Ihr Adventure zu diesem Zeitpunkt bereits 
vierzig Räume, dürfen Sie nun in entsprechend vielen Zeilen 
aus ‘Nimm Flasche’ ein "Nimm Faß’ machen, entsprechendes 
gilt für ‘Leg Flasche, Oeffne Flasche’ usw. 

Haben Sie sich hingegen an unser Adventuresystem gehalten, 
ändern Sie Zeile 305, fertig ! 


Vergessen wir daher diese Methode und wenden wir uns wieder 
unserem Adventure zu. Wir lassen die Handlung ebenfalls in 
genau definierten Programmzeilen ablaufen, doch enthält nun 
jeder Block die Behandlung jeweils eines Verbes. 


Unser Treiber hat bereits Verb- und Objektnummer ermittelt, 
daher können wir diese Blöcke gezielt anspringen. So ist es 
sinnvoll, allen Zeilen, die mit der Ausführung des Befehles 
“untersuche’ beschäftigt sind, beispielsweise 
Programmzeilen ab 5000 zuzuteilen, die Aktion 'nim’ wird 


dann entsprechend ab Zeile 6000 realisiert. 


Der Steuerung des Programmablaufes nimmt der 


Adventuretreiber anhand der Verbnummer in Zeile 2200 vor: 
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2190 REM UNTE NIMM LEG 
OEFFNE BENUTZE ZERSTOERE 

2200 ON verbnummer GOTO 5000, 6000, 7000,8 
000, 9000, 10000 


Mit Programmzeile 5000 beginnt nun der Block °’UNTERSUCHE’. 
Es ist leicht einzusehen, daß uns hier der größte 
Arbeitsaufwand abverlangt wird. 

Nicht nur, daß auf UNTERSUCHE HÜTTE die Nachricht IN DER 
HUETTE STEHT EIN ALTES REGAL. ausgegeben und das Regal als 
sichtbares Objekt erscheinen muß. Nein, wir müssen auch 
sicherstellen, daß die Hütte an dem gerade besuchten Ort 
zur Verfügung steht, und gegebenenfalls eine Mitteilung wie 
SO ETWAS SEHE ICH HIER NICHT. an den Spieler übermitteln. 


Diese Überlegungen zeigen bereits den Aufwand der 
Adventureprogrammierung, glücklicherweise lassen sich aber 
auch zahlreiche unterschiedliche Spielereingaben von ein 


und derselben Programmzeile beantworten. 


So wird unser Programmteil, der die untersuchenden 
Handlungen des Spielers bearbeitet, zunächst prüfen, ob der 
Gegenstand, über den nähere Informationen gewünscht werden, 
entweder in Reichweite des Spielers, somit im gleichen 
Raum, oder gar in dessen Besitz ist, ansonsten kann sofort 


mit der Eingabe des nächsten Zuges begonnen werden: 


5000 IF ob(o)<>spieler AND ob(0o)<>-1 THE 
N GOTO 5900 

5900 REM GEGENSTAND NICHT VORHANDEN 
5990 PRINT"So etwas sehe ich hier nicht 

I*:GOTO 1080 
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DIE BEDINGUNGEN 


Abgesehen von diesen zwei Bedingungen, lassen sich eine 
Reihe weiterer Voraussetzungen formulieren die als 
Kriterium für die Ausführung einer Aktion herangezogen 
werden können, und ohne die ein Adventure nicht zu 


realisieren sein wird: 


Objekt ist im Raum 

Objekt wird vom Spieler mitgeführt 
Objekt ist nicht im Raum 

Flag ist gesetzt 

Flag ist nicht gesetzt 


Spieler ist in einem bestimmten Raum 


Wie wir später noch sehen werden, erhebt diese Liste keinen 
Anspruch auf Vollständigkeit, denkbar ist beispielsweise 
eine Invertierung der letzten Bedingung, bestimmte Aktionen 
können in einem gewissen Raum nicht ausgeführt werden, wohl 
aber in jedem anderen Raum. 


Einer Erläuterung bedürfen die an dieser Stelle 
aufgetauchten Flags. Es handelt sich hierbei um weitere 
Signalschalter, die hier jedoch unmittelbar der Kontrolle 
des Spielverlaufes dienen werden, und die wir mittels eines 
weiteren Feldes realisieren wollen. Auch diese 
Feldvariablen sollen nur zwei Zustände annehmen können, 
entweder ist ein Flag gesetzt, dann soll der Inhalt der 
Variablen -1 sein, oder es ist nicht gesetzt, was einer 
Null entsprechen soll. 

Praktisch nutzen werden wir sie zur Identifizierung 
bestimmter Zustände: 


ist eine Tür geöffnet oder verschlossen ? 
wurde ein Hindernis beseitigt oder nicht ? 
soll ein Ungeheuer dem Treiben des Spielers ein Ende 


setzen, oder darf er weiterziehen ? 
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In der Programmpraxis wird die Formulierung einer einzigen 
Bedingung meist jedoch nicht zur eindeutigen Klassifizierung 


der Situation ausreichen, so daß logische Verknüpfungen 


mehrerer Bedingungen erforderlich werden, um zu 
gewährleisten, daß einige Handlungen nicht völlig 
zusammenhanglos und zu einem falschen Zeitpunkt 


durchgeführt werden. 

Bei diesen logischen Operationen wird es sich um UND- 
beziehungsweise ODER- Verknüpfungen handeln, für unsere 
Adventurepraxis heißt das, entweder müssen beide (AND) oder 
nur die eine oder die andere (OR) von zwei oder mehreren 
Verknüpfungen erfüllt sein. Können wir nicht auf mehr als 
zwei Bedingungen verzichten, wird meist auch eine 
Klammerung unumgänglich sein. Ein Beispiel soll dies 
deutlich machen: 


Denken wir an den Sprengstoff in unserer Kiste. Er 
soll dazu benutzt werden, allzu voreiligen Spielern 
die Freude am schnellen Weiterkommen zu vergällen. 

Eine Warnung ist vor der Explosion aus Fairneßgründen 
jedoch durchaus angebracht, weshalb auf Untersuche 
Sprengstoff die Meldung Er sieht sehr explosiv aus 
ausgegeben werden soll. Wenn der Spieler dann noch 
versucht, ihn zu nehmen, trägt er selbst die Schuld an 


seinem Ende. 


Hat der Spieler tatsächlich obige Eingabe gemacht, 
wird der Treiber die Nummern 1 (untersuche) und 9 
(Sprengstoff) zur Verfügung stellen. Unser Problem 
liegt nun darin, daß wir uns nicht mit der Überprüfung 
eines Raumes zufrieden geben können, denn wir dürfen 
nicht vergessen, daß der Spieler zwar den Sprengstoff 
nicht greifen und mitnehmen kann, wohl aber die 
Holzkiste, und wenn er die Kiste mit sich führt, hat 
er auch den Sprengstoff bei sich. Prüfen wir daher, ob 
der Spieler den Sprengstoff gemeint hat, UND 
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gleichzeitig die Holzkiste (Objekt Nummer 7) im gerade 
besuchten Raum ODER im Inventory des Abenteurers ist. 

Der eigentliche Handlungsgegenstand (Nummer 9) steht 
nicht zur Verfügung, nach Zeile 5000 wird der 
Programmablauf daher mit Zeile 5900 fortgestetzt 


werden. 


So muß die Ausführung des Befehles Untersuche 
Sprengstoff folgendermaßen formuliert werden: 


5904 IF 0o=9 AND (ob(7)=spieler OR ob(7)= 
-1) THEN PRINT"Er sieht sehr explosiv au 
s !":GOTO 1080 


DIE AKTIONEN 


Das vorangegangene Beispiel hat uns die Ausführung der wohl 
einfachsten Aktion, die Ausgabe einer Mitteilung an den 
Spieler, deutlich gemacht. 

Meist ist dieser Print - Befehl jedoch nur Beiwerk zu 
anderen Handlungen, wie Manipulationen von OB(), um dem 
Abenteurer in einer Rückmeldung die Ausführung des Befehles 


zu bestätigen. 


Im Gegensatz dazu bedeuten Befehle wie Nimm, Leg, Zerstöre 
und auch Öffne für einen Gegenstand immer eine 
Ortsveränderung. Entweder wird er neuerdings vom Spieler 
mitgeführt, oder er gehört nun zum Inventar eines 
bestimmten Raumes, vielleicht verschwindet dieser 
Gegenstand auch ganz aus dem Spiel. Stellen Sie sich nur 
die Verblüffung des Spielers von Goldrausch vor, wenn der 
Bär den Honig offensichtlich genossen hat, die Flasche aber 


immer noch irgendwo zu finden ist ! 


Eine andere, ebenfalls häufig benötigte Aktion ist das 
Setzen oder Löschen der zuvor erwähnten Flags, um 
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stufenweise die Voraussetzungen für spätere Handlungen zu 


schaffen. 


Vergessen dürfen wir auch auf keinen Fall bedingte 
Ortswechsel des Spielers, welche durch Zauberei oder 
harmlose Aktionen ausgelöst werden. Eine spätere 
Erweiterung von Goldrausch könnte aus der Höhle des Bären 
ein riesiges Labyrinth von Gängen machen, und nach 
Untersuche Höhle befindet sich der Spieler mitten in der 
Höhle, obwohl er diese nicht durch eine Bewegung in die 
entsprechende Himmelsrichtung betreten hat. Aber durch den 
erhöhten Programmieraufwand wird unser Adventure nur 
realistischer werden, denn wie soll man eine Höhle 


gründlich untersuchen, ohne sie zu betreten ? 


Ähnlich wie bei den Bedingungen, können wir auch hier eine 
Liste möglicher Aktionen zusammenstellen, wobei allerdings 
wiederum kein Anspruch auf Vollständigkeit erhoben wird. 
Jedoch handelt es sich dabei um einen ausreichenden 
Grundstock, denn es ist möglich, allein mit den 
vorgestellten Bedingungen und Aktionen gute Adventures zu 


schreiben. 


Mitteilung an den Spieler ausgeben 
Objekt verschwindet 

Objekt kommt ins Inventory 

Objekt erscheint neu im Raum 

Flag wird gesetzt 

Flag wird gelöscht 


Spieler wird in anderen Raum versetzt 
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PROGRAMMIERUNG DER BEFEHLSAUSFÜHRUNG 


Im folgenden finden Sie Hinweise zu Besonderheiten, die bei 
einzelnen Befehlen beachtet werden müssen. Dabei werde ich 
nur einige typische Programmzeilen erläutern, entnehmen Sie 
die restlichen Zeilen bitte dem Listing der Miniversion von 
Goldrausch am Ende dieses Kapitels. 


Aktion: Untersuche 


Zunächst steht fest, daß das Ergebnis der Untersuchung 
eines Gegenstandes immer in Form eines Satzes mitgeteilt 
wird. 

Häufig wird es sich dabei um ein und denselben Satz handeln 
(Ich sehe nichts besonderes), weshalb wir die Mitteilungen 
an den Spieler in solchen Fällen nicht direkt ausgeben, 
sondern wir weisen den Text bei Programmstart einer 
Variablen zu und drucken deren Inhalt zu gegebener Zeit 
aus. 


600 REM **xxuuueaeeeeeeeekk MITTEILUNGEN 
601 m$(1)="Ich sehe nichts besonderes." 
602 m$(2)="So stark bin ich nicht !" 

603 m$(3)="Wie stellst Du Dir das vor ?" 
604 m$(4)="Der Baer greift sich den Honi 
g, und" 

605 m$(5)="verschwindet in der Tiefe der 
Hoehle." 


690 ok$="0.k." 


Bereits erläutert wurde Zeile 5000, sie stellt für den 
gerade aktuellen Gegenstand durch Überprüfung des Wertes in 
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OB() sicher, daß das Objekt sich in der Nähe des Spielers 
befindet. 

Trifft dies zu, wird entsprechend der Objektnummer o die 
für diesen Gegenstand zuständige Programmzeile ermittelt. 
Sind alle dort programmierten Bedingungen erfüllt, wird der 
Rest der Zeile abgearbeitet und der Programmlauf 
anschließend mit dem Neuaufbau des Bildschirmbildes 
fortgesetzt: 


5002 IF o=1 THEN PRINT m$(1):GOTO 1080 
5003 IF o=3 THEN PRINT m$(1):GOTO 1080 
5004 IF o=4 THEN PRINT"In einer Ecke ste 
ht ein Regal.":OB(8)=spieler:GOTO 1080 


Wird die Holzhütte untersucht (o=4), entdeckt der Spieler 
das Regal. Dieses war bislang in Raum O, dem Lagerraum, und 
wird nun im Raum des Spielers positioniert, weshalb der 
Adventuretreiber beim anschließenden Durchlaufen der Zeilen 
1160 bis 1210 unter anderem auch ein klappriges Regal 
ausgibt. 


Nun ist es aber, wie im Fall des Regales, denkbar, daß ein 
Objekt auftaucht, welches der Spieler anschließend an sich 
nimmt. 

Dann wäre eine Formulierung wie in 5004 nicht mehr 
ausreichend, denn die Flasche würde bei jeder weiteren 
Untersuchung des Regales dem Inventory automatisch 


entnommen und wieder in den Raum gestellt werden. 


Diesen Fehler können wir nur vermeiden, wenn wir uns zuvor 
vergewissern, daß die Flasche noch nicht im Spiel war, 


somit also noch immer im Lagerraum ist. 


5008 IF o=8 AND ob(5)=O THEN PRINT"Auf d 
em Regal steht eine Korbflasche.":ob(5)= 
spieler:GOTO 1080 

5009 IF o=8 AND ob(5)<>O THEN PRINT m$(1 
):GOTO 1080 


90 


Bei allen weiteren Untersuchungen des Regales wird der 
Spieler nichts besonderes mehr feststellen (Zeile 5009). 


Ein weiteres Beispiel soll den Gebrauch der Flags zeigen. 
Hat der Spieler die Schatztruhe gefunden, ist diese 
zunächst mittels einer Eisenkette verschlossen. Nachdem er 
dieses Hindernis beseitigt hat, muß die Truhe 
selbstverständlich erst geöffnet werden, ehe der wertvolle 
Inhalt sichtbar wird. Um diese drei Zustände dem Spieler 
deutlich zu machen, wäre es möglich, weitere Gegenstände, 
wie eine mit einer Eisenkette verschlossene Truhe, eine 
unverschlossene Truhe, und eine geöffnete Truhe, 
einzuführen. Dieser recht hohe Programmieraufwand, der 
nebenbei natürlich wiederum den zur Verfügung stehenden 
Speicherplatz einschränkt, läßt sich durch den Einsatz von 
Signalschaltern umgehen. Sinnvollerweise fertigen Sie 
während der Konstruktion Ihres Adventures eine Tabelle an, 


damit Sie auch wirklich die richtigen Flags umstellen: 


Flag [0) -1 
1 Kette heil Kette zerstört 
2 Truhe zu Truhe geöffnet 
Warum als Inhalt nur -1 und 0, und warum nicht nur ein 


einziges Flag mit verschiedenen Ziffern für jeden möglichen 
Zustand vorgesehen worden ist, können Sie sich inzwischen 
selbst erklären. 

Denn wir machen uns die Tatsache zunutze, daß für den Basic 
- Interpreter ein wahrer Ausdruck immer durch eine -1 
repräsentiert wird, und können somit unsere Programmzeilen 
wieder etwas kürzer halten, denn in den IF - Statements 


müssen wir keine Vergleichswerte angeben: 


IF FL(1)=-1 entspricht IF FL(1) 
IF FL(1)= O entspricht IF NOT FL(1) 


Für unser Beispiel gelten demnach folgende Zeilen: 
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5011 IF o=11 AND NOT £l(1) THEN PRINT"S 
ie ist mit einer Eisenkette ver-":PRINT" 
SCHLOSSEN." :GOTO 1080 

5012 IF o=11 AND f1(1) AND NOT £fl(2) THE 
N PRINT"Aussen sehe ich nichts besondere 
s.":GOTO 1080 

5013 IF o=11 AND fl(1) AND fl(2) AND ob( 
12)=0 THEN PRINT"Sie ist voller Silbermu 
enzen.":ob(12)=spieler:GOTO 1080 


Ein weiterer Punkt, dem wir besondere Beachtung schenken 
müssen, findet seinen Grund in der Auslegung unserer 
Wortanalyse. 

Zur Ausstattung der ersten zwei Räume gehören die völlig 
identischen Objekte 1 und 2. Wird die Eingabe des Spieles 
überprüft, so wird als Objektnummer immer nur eine 1 
ermittelt werden können, welche bei einem Aufenthalt des 
Spielers in Raum 2 nicht den Tatsachen entspricht. 

Um Eingabefehler richtig quittieren zu können, hatten wir 
jedoch Programmzeile 5000 eingesetzt, welche uns nun auch 
die Behandlung dieser Sonderfälle ermöglicht. 

So lösen wir das Problem Untersuche Baeume für Raum 2 


folgendermaßen: 


5901 IF o=1 AND spieler=2 THEN PRINT m$( 
1):GOTO 1080 


Zum Abschluß der Routine müssen wir eine letzte Zeile 
vorsehen, die, wenn in keiner der vorangegangenen 
Programmzeilen alle Bedingungen erfüllt waren, ohne jede 
Bedingung durchgeführt wird. Hiermit werden nicht 
definierte Spieleingaben abgefangen, und wir verhindern, 
daß, wenn keine zutreffende Bedingung gefunden wurde, die 
Zeilen der anderen Verben abgearbeitet werden und somit der 


Programmlauf außer Kontrolle gerät. Selbst wenn wir eine 
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Handlung, die für den Ablauf des Adventures nicht notwendig 
ist, vergessen, wird ein Spieler das niemals bemerken: 


5990 PRINT"So etwas sehe ich hier nicht 
!":GOTO 1080 


Aktion: NIMM 


Genau so, wie der Spieler einen Gegenstand nur untersuchen 
kann, der sich in seiner Nähe befindet, so wird er ihn auch 
nur nehmen können, wenn der Gegenstand entweder im gleichen 


Raum wie der Spieler oder bereits in dessen Taschen ist. 


6000 IF ob(o)<>spieler AND ob(n)<>-1 THE 
N GOTO 6900 


Danach wäre es an sich ganz einfach, den Befehl 
auszuführen, für eine Reihe von Objekten sollten wir dem 
Abentuerer seinen Wunsch jedoch versagen. 

So wollen wir berücksichtigen, daß eine vollgefüllte 
Eisentruhe vermutlich zu gewichtig für einen einzelnen 
Menschen ist, ebenso können wir selbst dumme Versuche des 


Spielers wie Nimm Baum nicht unbeachtet lassen. 


6001 IF o=1 THEN PRINT m$(2):GOTO 1080 
6005 IF o=11 THEN PRINT m$(2):GOTO 1080 


Natürlich kann es auch noch schlimmer kommen, denn wir 
müssen dem Spieler selbstverständlich eine ausreichende 
Anzahl von Fallen stellen, damit ihm der Sieg nicht zu 
einfach gemacht wird. So sollte laut unserem Drehbuch eine 
Berührung des Sprengstoffes zur Explosion und damit zum 
Spielende führen. Gleiches gilt für den Fall, daß er 
versucht, sich der Nuggets zu bemächtigen, ohne dem Bären 


zuvor einen Leckerbissen angeboten zu haben. Ebenso fatal 
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für den Spieler müßte sein Versuch sein, den Bären zu 


nehmen: 


6015 IF o=1 AND spieler=5 THEN m$(O)="De 
r Baer hat mich erschlagen.“ :GOTO 4500 
6018 IF o=17 AND NOT fl(3) THEN m$(O)="E 
in Baer stuerzt sich auf mich.":GOTO 450 
10) 

6900 IF 0o=9 AND (ob(7)=spieler OR ob(7)= 
-1) THEN m$(O)="Bei der Beruehrung ist d 
er Sprengstoff explodiert !":GOTO 4500 


Anmerkung: In Zeile 4500 beginnt eine 
Routine, welche bei nicht gewonnenen 


Spiel aufgerufen wird. m$(0) ist in 
dieser Routine für eine erläuternde 


Nachricht vorgesehen. 


Flag 3 wird gesetzt, sobald der Bär in 


den Besitz des Honigs gelangt. 


Steht dem Versuch des Spielers, sich an irgendwelchen 
Gegenständen unseres Adventures zu bereichern, nichts im 
Wege, müssen wir dem betreffenden Objekt nur die neue 


Platznummer, eine -1, zuweisen: 


6010 IF o=5 THEN ob(5)=-1:PRINT ok$:GOTO 
1080 
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Aktion: LEG 


Irgendwann jedoch wird der Spieler sich dieser Objekte auch 
wieder entledigen wollen, entweder, weil wir als 
Programmierer seine Tragfähigkeit begrenzt haben, oder weil 
er sie irgendwie benutzen will. 

In der Praxis wirft die Leg weg - Routine kaum Probleme 
auf, darüberhinaus überzeugt sie durch ihre Kürze. 

Denn die einzige Voraussetzung ist, daß der wegzulegende 
Gegenstand im Besitz des Spielers ist, was für alle Objekte 


in Zeile 7000 getestet wird: 


7000 IF ob(o)<>-1 THEN PRINT"So etwas ha 
be ich doch gar nicht !*:GOTO 1080 
7900 ob(o)=spieler:PRINT ok$:GOTO 1080 


Irrtümer des Spielenden werden sofort erkannt und 
entsprechend quittiert. War der Gegenstand im Inventory, 
wird ihm mit einer Änderung des Inhaltes von OB() ein neuer 


Aufenthaltsort zugewiesen. 


Prinzipiell reichen diese beiden Zeilen aus, es kann jedoch 
erforderlich sein, neben dem Positionswechsel weitere 
Aktionen durchzuführen. So hatten wir für Goldrausch 
vorgesehen, daß der Bär sich die Flasche greift und damit 
in den Tiefen der Höhle verschwindet. 

Diese Aktion darf natürlich nur durchgeführt werden, wenn 
der Spieler sich gerade in Raum 5 befindet, an allen 
anderen Orten wird der Vorgang ebenfalls durch Zeile 7900 
ausgeführt. 


7020 IF o=5 AND spieler=5 THEN ob(5)=0:£f 


1(3)=-1:PRINT m$(4):PRINT m$(5):ob(14)=O 
:GOTO 1080 
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Aktion: OEFFNE 


Gleich zu Beginn dieses Programmteiles steht der nun schon 
bekannte Test, um technische Fehler zu vermeiden. Wiederum 
ist es nötig, sowohl den Raum als auch das Inventory zu 
überprüfen, schließlich wird der Spieler eine zu öffnende 
Tür nicht erst nehmen müssen, was aber für eine Flasche 


durchaus Bedingung sein kann: 


8000 IF ob(o)<>spieler AND ob(o)<>-1 THE 
N PRINT"So etwas ist hier nicht.":GOTO 1 
080 


Die Aktion selbst wird meist aus dem Setzen eines Flags und 


der Ausgabe einer Mitteilung bestehen: 


8025 IF o=11 AND fl(1) THEN PRINT ok$;" 
- der Deckel klappt nach hinten.":fl(2)= 
-1:GOTO 1080 


Nicht vergessen dürfen wir unwichtige Aktionen, die aber 
von der Lage der Dinge her möglich sind. Als Beispiel mag 
noch einmal unsere Flasche dienen. Ein logisch denkender 
Abenteurer wird sie vor einer näheren Untersuchung erst 
öffnen wollen und wäre sicher überrascht, wenn ihm dies 
nicht gelingt bloß weil wir es für unrelevant in Bezug auf 


den weiteren Spielverlauf gehalten haben: 

8010 IF o=5 THEN PRINT ok$:GOTO 1080 
Der Abschluß dieses Blockes gewährleistet, daß neben den 
technischen Falscheingaben auch inhaltliche Unmöglichkeiten 


wie Öffne Honig erkannt werden. 


8999 PRINT"Ich verstehe nicht, was Du me 
inst.":GOTO 1080 
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ZUSAMMENFASSUNG 


Ich hoffe, daß Ihnen mit den Erläuterungen zu diesen wohl 
häufigsten Handlungen die Ausführung der eigentlichen 
Spielprogrammierung klar geworden ist. Prinzipiell läßt 
sich zusammenfassend sagen, daß die einzelnen Aktionen 
durch zwei Programmzeilen umklammert werden. 

So wird zu Beginn eines Blockes getestet, ob von der 
technischen Seite her die Durchführung der Aktion möglich 
wird, abschließend wird sichergestellt, das der Programmlauf 
selbst bei Auftreten irgendeines Fehlers korrekt fortgesetzt 
wird. 

Das Erkennen der richtigen Voraussetzungen für die 
Durchführung eines Befehles ist dabei, ebenso wie die Aktion 
selbst, meist eine recht einfach zu programmierende 
Angelegenheit, die bei unserem Adventuresystem zudem noch 
standardisiert wurde. Folgende Zusammenstellung soll Ihnen 
bei der Realisation Ihrer ersten eigenen Adventures eine 


Hilfe sein: 


BEDINGUNG IM BASICPROGRAMM 


Objekt ist im Raum 

Objekt wird vom Spieler mitgeführt 
Objekt ist nicht im Raum 

Flag ist gesetzt 

Flag ist nicht gesetzt 

Spieler ist in einem bestimmten Raum 


AKTIONEN 


ob(objekt)=sp 
ob(objekt)=-1 
ob(objekt)<>sp 
£fl(x)=-1 
£fl(x)=0 


sp=-Raumnummer 


IM BASICPROGRAMM 


Mitteilung an den Spieler ausgeben 
Objekt verschwindet 

Objekt kommt ins Inventory 

Objekt erscheint neu im Raum 

Flag wird gesetzt 

Flag wird gelöscht 

Spieler wird in anderen Raum versetzt 
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PRINT" oder M$ 
ob(Objekt)=O 
ob(Objekt)=-1 
ob(Objekt)=sp 
£fl(x)=-1 
£l(x)=0 
sp=-Raumnummer 


DIE LETZTEN SCHRITTE 


Bevor unser Adventure den in Kapitel 2 entwickelten 
Vorstellungen entspricht, müssen wir uns noch Gedanken zu 
drei weiteren Programmteilen machen. 

So ist es für einen einwandfreien Spielablauf unbedingt 
erforderlich, dem Spieler die Möglichkeit zu einer 


schnellen Inventur in die Hand zu geben. 


Es wäre duchaus möglich, diese Aktion auf gleiche Art und 
Weise wie die Behandlung der übrigen Verben durchzuführen. 
Da es sich hierbei jedoch um eine grundsätzliche Funktion 
der Abenteuerprogramme handelt, werden wir unseren Treiber 


in geeigneter Weise ergänzen. 


Inventur 


Inventur gehört, wie auch die später zu erstellenden 
Routinen zum Abspeichern und Laden des Spielstandes, zur 
Befehlsgruppe der sogenannten Ein - Wort - Befehle. Für 
diesen Programmteil haben wir zwischen den Programmzeilen 
1480 (Ende der Bewegungsroutine) und 2000 (Analyse der 
Eingabe) ausreichend Platz gelassen. 


Um unseren Treiber nicht unnötig lange damit zu 
beschäftigen, einen jeden Spielerzug mit den Befehlen 
dieser Sondergruppe zu vergleichen, entscheiden wir 
zunächst, ob es sich um eine dieser speziellen Anweisungen 
oder um eine reguläre Eingabe handelt. 

Die übliche Spielereingabe wird eine Länge von mindestens 
neun Buchstaben haben, gehen wir daher davon aus, daß es 
sich, wenn die Länge der Eingabe geringer ist, um einen Ein 
- Wort Befehl handelt: 
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1480 IF LEN(eingabe$)>8 THEN GOTO 2000 


Handelte es sich bei der Eingabe des Spielers nicht um eine 
reguläre Verb/Objekt - Kombination, dann sollen alle 
Zeilen, in denen die Behandlung eines EW - Befehles 
beginnt, der Reihe nach durchlaufen werden, bis schließlich 
eine Übereinstimmung der ersten drei Buchstaben 
festgestellt wird. 


In der Praxis besteht die Ausführung der Inventur aus einer 
einfachen Schleife, welche alle Gegenstände des Adventures, 
deren Aufenthaltsort mit -1 gekennzeichnet ist, auf dem 


Bildschirm ausdruckt: 


1499 REM ***rtkerkerkeake START INVENTUR 
1500 IF LEFT$(eingabe$,3)<>"INV" THEN GO 
TO 2000 

1510 PRINT"Ich trage folgendes mit mir:" 
1520 FOR objekt=1 TO ao 

1530 IF ob(objekt)=-1 THEN PRINT ob$(obj 
ekt) 

1540 NEXT objekt 

1550 GOTO 1080 

1560 REM ***txkaxewekekeak ENDE INVENTUR 


Die Titel 


Rein technisch gesehen haben wir unser Programm mit diesen 
Zeilen fertiggestellt. Alle gewünschten Funktionen stehen 
zur Verfügung und einem Spiel steht nichts mehr im Wege. 
Doch wie lange soll der Abenteurer in unserer Welt 


umherirren, wann hat er sein Ziel erreicht ? 
Handlungsmäßig ist die Miniversion von Goldrausch beendet, 


wenn sowohl die Nuggets als auch die Silberstücke sich im 


Besitz des Spielers befinden. 
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Eine einzige Basic - Zeile reicht aus, um in diesem Falle 
alle weiteren Eingaben zu unterbinden und einen Programmteil 
anzuspringen, welcher dem Spieler in angemessener Form seinen 
Erfolg mitteilt und das Spiel beendet. 


1340 IF ob(12)=-1 AND ob(17)=-1 THEN GOT 
0 4800 


Für Adventurespiele typisch ist jedoch ein völlig anderes, 
weniger ruhmreiches Ende. Da auch Spieler unserer Programme 
meistens gezwungenermaßen ihr Spiel etwas früher beenden 
werden, programmieren wir ein weiteres Endbild ab Zeile 
4500. 

Bei der Ausführung der spielbeendenden Handlungen hatten 
wir ja bereits eine entsprechende Nachricht vorbereitet, so 
daß der Spieler zumindest nicht über die Ursache seines 


Scheiterns im Unklaren gelassen werden muß. 


4500 CLS:REM SPIELER TOD 
4600 PRINT"Auch das noch !":PRINT:PRINT 
m$(O) 


4610 PRINT:PRINT"Ich bin tod !":PRINT 
4620 INPUT"Soll ich es noch einmal versu 
chen ";eingabe$:eingabe$=UPPER$(eingabe$ 
)4630 IF LEFT$(eingabe$,1)="J* THEN RUN 
4640 GOTO 1960 


Dabei erlaubt es uns die Einbeziehung der individuellen 
Nachricht in m$(O), dieses Titelbild für jede Situation und 
für jedes Adventure zu verwenden. Änderungen werden, sofern 
sie überhaupt erforderlich sind, nur wenig Aufwand 
verursachen. Aus diesem Grunde können obige Zeilen, ebenso 
wie die Siegesnachricht ab 4800, als weitere Ergänzungen 
unseres Adventuretreibers betrachtet werden. 


Bedenken wir weiterhin, daß es für Adventures durchaus 
nicht typisch ist, sie zu laden und in einigen wenigen 
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Stunden durchzuspielen, und programmieren wir daher zu 


guter Letzt noch ein reguläres Programmende. 


Auch wenn sich solche Software auf dem Markt befindet, es 
zeugt nicht von der Benutzerfreundlichkeit eines 
Programmes, wenn es nur durch Drücken der Break- oder 


Resettaste verlassen werden kann. 


Fügen wir daher einen weiteren Ein - Wort Befehl in unser 
System ein: 


1500 IF LEFT$(eingabe$,3)<>"INV" THEN GO 
TO 1950 

1950 IF LEFT$(eingabe$,3)<>"END" THEN GO 
TO 2000 ELSE CLS 

1960 PRINT "Der Autor wuenscht Ihnen meh 
r Glueck*:PRINT"beim naechsten Mal !":PR 
INT: PRINT: PRINT: END 


Sinngemäß waren das die letzten Zeilen unseres Adventures, 
alle denkbaren Versionen des Spielendes haben wir 
realisiert. Doch wie nimmt sich dagegen der Beginn unseres 


Werkes aus ? 


Starten wir unser Programm so wie es ist, besteht dessen 
erste Handlung darin, die Variablen vorzubereiten, eine 
Arbeit, die besonders bei größeren Adventures den Gedanken 
an einen Absturz des Programmes aufkommen läßt. 
Anschließend befindet man sich mitten im Programm, und ein 
unerfahrener Adventureneuling sieht dann möglicherweise den 
Sinn des Spieles darin, eine Seight Seeing Tour durch eine 


elektronisch simulierte Welt anzustellen. 


Schenken wir daher einer alten Volksweisheit Glauben, die 
besagt, daß der erste Eindruck oft entscheidend ist. 

Machen wir uns die Mühe, unser Programm, bevor wir es als 
fertig bezeichnen, mit einem, oder besser noch, mit 


mehreren Titeln zu versehen. 


Dem ersten Titel wird dabei die Aufgabe zufallen, in 
knapper, aber ansprechender Form, Aufklärung über die im 
Speicher befindlichen Bytes zu geben, Programmtitel und 
-gattung zu nennen sowie Auskunft über den Autoren zu 


geben. 


Das nächste Bild bringen wir auf den Schirm, bevor die 
Variablen winitialisiert werden. Während dieses Zeitraumes 
kann dieser Titel Auskunft über die dem Spieler gestellte 


Aufgabe geben, und ihn in die Handlung einführen. 


Herzlich Willkommen zu 
"GOLDRAUSCH" 
Auf der Suche nach dem Glueck in der 
neuen Welt begegneten Sie vor einigen 
Tagen einem alten todkranken Mann, dem 
Sie in seinen letzten Stunden Beistand 
leisteten. 
Aus Dankbarkeit brichtete er Ihnen von 
seiner Goldmine und den dort versteckten 
Resten seines Vermoegens. 
zahllosen Gefahren widerstanden Sie auf 
dem Weg dorthin; bald werden Sie Ihr 
Ziel erreicht haben und es wird sich 
zeigen, ob der Alte die Wahrheit 
gesprochen, oder im Fiebertraum geredet 
hatte. 
Wuenschen Sie Ratschlaege fuer Ihr 


weiteres Vorgehen ? 
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Gehört das Herausfinden der gestellten Aufgabe allerdings 
mit zur Spielidee, wird diese Tafel fehlen, und an den 
Programmtitel schließt sich gleich eine Erklärung der 
Adventurespiele an, die ansonsten als drittes Titelbild 


implementiert werden muß. 


Denn wie war es, als Sie Ihr erstes Adventure in die Hand 
und in den Speicher bekamen, kannten Sie Sinn und Ziel 
dieser Programme, oder saßen Sie rat- und tatenlos vor 
Ihrem Computer ? 


Vergessen wir doch nicht, daß es immer wieder Anfänger 
geben wird. Anfänger, die froh sind, wenn sie nach dem 
Einschalten des Rechners ein Programm ohne Fehlermeldungen 
laden und starten können. Eine grundsätzliche 
Spielanweisung bedeutet doch nur geringen zusätzlichen 
Aufwand, machen wir uns daher ans Werk und rechtfertigen 
ein mögliches Fehlen nicht etwa damit, daß das Herausfinden 
der Spielregeln bereits das erste beabsichtigte Hindernis 
wäre. 
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CPC - Ventures 
(ce) 1984 by Jörg Walkowiak 

Stellen Sie sich einen Roboter vor, den 
Sie mit zahlreichen Kommandos steuern 
koennen. 
Ich bin dieser Roboter, und ich werde 
mich fuer Sie den Gefahren der verwegen- 
sten Abenteuer aussetzen. 
Damit Sie mich sinnvoll agieren lassen 
koennen, werde ich Ihnen die Situation 
in der ich mich gerade befinde, jeweils 
genau beschreiben. 
Anschliessend sagen Sie mir mit zwei 
Worten, wie beispielsweise UNTERSUCHE 
TUER, NIMM MESSER, was ich tun soll. 


Darueber hinaus verstehe ich die Befehle 
INVENTUR, SCORE, VOKABELN, HELP 
SAVE & LOAD sowie ENDE. 


Zwei Beispiele haben Ihnen gezeigt, wie es gemeint war. Für 
diese Aufgaben stehen die Programmzeilen 10 - 100, sowie 
700 - 900 Verfügung. 

Sinnvollerweise werden die allgemeinen Erläuterungen dabei 
als Unterprogramm eingebaut, was den weiteren Ausbau des 
Adventuretreibers um den Befehl INStruktionen erlaubt. Der 
Abenteurer kann sich nun jederzeit ohne einen Abbruch des 
Spieles die allgemeinen Regeln in die Erinnerung 


zurückrufen. 


HINWEISE ZUM FOLGENDEN LISTING 


Nachdem Sie die folgenden Zeilen in Ihren Schneider CPC 
eingegeben haben, steht Ihnen die lauffähige Miniversion 
von Goldrausch zur Verfügung. Es gilt jedoch zu beachten, 
daß es sich nur um zusätzliche Programmzeilen handelt, alle 
im vorangegangenen Text erläuterten Zeilen müssen sich 


bereits im Speicher befinden. 


Sie werden sehen, daß mit den bisher vorgestellten 
Techniken bereits anspruchsvolle Adventures entwickelt 
werden können, die den Vergleich mit entsprechender 
käuflicher Software nicht zu scheuen brauchen. 


Es liegt dann an Ihnen, ob Sie das Buch zunächst beiseite 
legen und ein eigenes Abenteuerspiel entwickeln oder lieber 
weitere Features kennenlernen wollen, die aus einem guten 


ein perfektes Adventure machen können. 


2a CLS:PLOT 420, 170: DRAW 420, 360: DRAW 
6409, 36@:DRAW 6408, 340: DRAW 45%, 340: DRA 
W450, 170:DRAW 460, 18%: DRAW Ab, 340: P 
LOT 460, 29@:DRAW 530, 279: PLOT 530, 3406 
:DRAW 5I560, 26%: DRAW 546, 26: DRAW 540, 3 
40:PLOT 540, 260 
21 DRAW 550%, 276: DRAW 55%, 349:PLOT 350, 
ZI90: DRAW 600, 340: PLOT 640%, 346: DRAW 30 
a, GıFLOT 446, G:sDRAW 640, 200: PLOT 640, 
200: PLOT 500, 200:DRAW 640%, ZU6ı PLOT 60 
a, 1660: DRAW 440, 160: PLOT 42%, 120: DRAW 
560, 120 
22 FLOT 526, 86: DRAW S86, 84: FLOT 340, 4 
@:DRAW 480, 46: FLOT 44G, @:DRAW 300, G:P 
LOT 546%, 24G:DRAW 640, 246: PLOT 580, 28% 
:DRAW 640, Z8G: PLOT 626, S32@:DRAW 646, 3 
ZU: FLOT 456, 170:DRAW 420%, 17%:PLOT 429, 
368 
ZS DRAW 44%, 80: DRAW 540, F8G: PLOT 450, 
370:DRAW 430, 380: DRAW 440, S90: DRAW 44 
a, 460: PLOT 28%, 150:DRAW 150, 150: DRAW 
150, 200: DRAW 289, ZUG: DRAW 286, 150:DRA 
Ww 31%, 18%: PLOT F16, 18% PLOT 280%, 200:D 
RAW 310, 230 
24 DRAW F1%, 18%: FLOT S10, ZIG: DRAW 189, 
Z30: DRAW 156, 2803 PLOT 150, Z906:DRAW 16 
a, Z1@: DRAW 27%, Z1@:DRAW 284, 200: PLOT 
270, 2Z1@:DRAW 290, 23@ıPLOT 270, 196: DRA 
W 16a, 190:DRAW 16, 16G: DRAW 276, 166:D 
RAW 279, 1990 
25 PRINT CHR$ (15%); STRING#$ (18, 154) SCHR#$ ( 
156) 
26 FRINT CHR$ (149) 5 STRING$ (18, 32) 5SCHR#$ (1 
49) 
27 FRINT CHR$ (149) 35" GOLDRAUSCH ”; 
CHR$ (149) 
28 FRINT CHR$ (149) ; STRING$ (18, 32) sCHRS$ (1 
49) 
29 PRINT CHR$(149);5"ein Adventure von"; 
CHR$ (149) 
3& PRINT CHRS$ (149) 5" "SCHRE(17B8)5 "rg W 
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alkowiak "5CHR$(149) 

si PRINT CHR$& (149) 5 STRING$ (18, S2) 5SCHRS (1 

49) 

S2 PRINT CHR# (147) 5 STRING# (18, 154) SCHR$ ( 
159) 

33 LOCATE 3,254 PRINT CHR$(164)5" 1984 b 

y DATA BECKER, Duesseldorf"; 

42 FOR i=1 TO 89G@aı NEXT 

122 ao=19 

149 af=5 

1689 wortlaenge=4 

s18 DATA"eine Eisenstange", "EISE",a 

Ss19 DATA'"eine Eisenkette","KETT",@ 

6997 REM una 2. TITEL: EINLEITUNG 

798 CLS:PEN 1:PRINT"Herzlich Willkommen 

zur Miniversion von":FRINT:IPEN 2:PRINT T 

AB(15) CHR$ (34) 5 "GOLDRAUSCH" 5 CHR$ (34) :PRI 

NT:PEN 1 

795 FRINT STRING$ (40, 208) 

718 PRINT"Auf der Suche nach dem Glue 

ck in derneuen Welt begegneten Sie v 

or einigenTagen einem alten todkranken 
Mann, demSie in seinen letzten Stunde 

n Beistandleisteten." 

728 PRINT"Aus Dankbarkeit berichtete er 
Ihnen vonseiner Goldmine und den dort v 

erstecktenResten seines Vermoegens." 

738 FRINT"Zahllosen Gefahren widerstand 

en Sie aufdem Weg dorthin; bald werd 

en Sie IhrZiel erreicht haben und es 
wird sichzeigen, ob der Alte die Wa 

hrheit ge-sprochen, oder im Fiebertra 

um geredethatte. 

749 PRINT STRING$ (40,210) 

800 REM tax #%%%# SPIELDATEN EINLESEN 

88@ FRINTs INPUT" Wuenschen Sie Ratschl 

aege fuer Ihr weiteres Vorg 

ehen"jeingabe$:eingabe$=UFPER$ (eingabe$) 

87a IF LEFT$(eingabes$,1)="J" THEN GOSUR 
998 

89795 GOTO 1040 
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899 REM ##ar#x##* IS. TITEL: INSTRUKTIONEN 
9029 MODE 1:PAFER @: INK @,@:BORDER #:FPEN 
1:INk 1,25 

91&a FRINT" CPC —- Ventures" 

92@ FRINT TARB{1SICHRS$(164)5" 1984 by I" 
SCHR$ (178)5 "rg Walkowiak" 

925 FRINT STRING$ (49,208) :PRINT"Stellen 
Sie sich einen Roboter vor, denSie mit 
zahlreichen Kommandos steuernkoennen. 
934 PRINT"Ich bin dieser Roboter. und 
ich werdemich fuer Sie den Gefahren der 
verwegen-sten Abenteuer aussetzen." 

948 FRINT"Damit Sie mich sinnvoll agie 

ren lassenkoennen, werde ich Ihnen die 
Situationin der ich mich gerade befind 

e, jeweilsgenau beschreiben." 

958 PRINT"Anschliessend sagen Sie mir 
mit zweiWorten, wie beispielsweise 
UNTERSUCHETUER, NIMM MESSER, was ich tun 

soll.":PRINT 
96@ FRINT"Darueber hinaus verstehe ich d 
ie Befehle INVENTUR, INSTRUETIDONEN u 
nd ENDE. 
97@ PRINT STRING$ (44,21%) 
989 INK 3,12,24: INK 2,24, 12:FEN 5: FRINT 
n <TASTE>"5s FEN Z3PRINT" drueck 
n"5ıPEN 1:PRINT" „.." 
998 eingabe$=INKEY$: IF eingabes="" THEN 
998 ELSE CLS:MODE 1:INK 1,2:INK 2,14: INE 
3,26: RETURN 
10@a@ MODE 1:PAPER @: INK @,@:BORDER @:ı PEN 
15 INK 1,2:PEN Z: INK 2,14: FEN IS: INK 3,26 


159@ IF LEFT$(eingabe$, S)<>"INV" THEN 60 
TO 1909 

1990 IF LEFT$(eingabe$, F)<>"INS" THEN 60 
TO 1959 

191& GOSUR 999 

1929 GOTO 198% 

219@ REM #**%* SZIPRUNGZIEE unte nimm leg 
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oeffne benutze zerstoere 

4800 CLS: REM SPIELER SIEGT 
481% PRINT"Herzlichen Glueckwunsch !" 
4826 PRINT:PRINT"Sie haben die Ihnen ges 
tellte Aufgabe":PRINT:PRINT"geloest und 
duerfen sich nun an einem":PRINT:PRINT"a 
nderen Adventure versuchen." 

4830 PRINT:PRINT:FRINT:PRINT:PRINTIEND 
49979 REM area SPIELZUG AUSFUEHREN 
5Q85 IF 0o=5 THEN FRINT"Die Flasche ist g 
efuellt mit Honig. ":ıGOTO 108% 

52906 IF 0o=6 THEN FRINT m$(1):60T0 1989 
5097 IF 0o=7 AND ob (9)=@ THEN PRINT"In de 
r Kiste liegt Sprengstoff.":60TO 198% 
S5@1@ IF 0o=10 THEN PRINT"In dem Erdloch 1 
iegt eine Eisentruhe. ":ob(11)=spieler:6G0 
TO 1088 

5@14 IF o=12 THEN FRINT'"Genau das suche 
ich !":G60TO 108%. 

5915 IF o=13 THEN PRINT"Ich habe einen R 
seren aufgeschreckt !"sob(14)=spielersfl 
(H=A:G0T0 148% 

5217 IF 0o=15 THEN FRINT"Zwischen den Rue 
schen ist ein Erdloch."rob(1%)=spieler:G 
0TO 10985 

s918 IF o=16 THEN FRINT"Sie sehen sehr s 
tabil aus. ":GOTO 1989 

S@19 IF 0o=17 THEN FRINT'"Es handelt sich 
um pures Gold !":G0OTO 148% 

Ss8@0 PRINT m$(1):G0TD 1684 

S57@a2 IF o=6 AND ob (5)=-1 THEN FRINT'"Er i 
st suess und gut.":GOTO 148% 

39793 IF o=6 AND ob (5S)<>-1 THEN FRINT"Ich 
habe keinen Honig !":GOTO 1984 

59795 IF o=16 AND ob (18)=-1 THEN PRINT'"Ka 
um angerostet - wirklich stabil !":GOTO 
1080 

suo2 IF 0o=3 THEN FRINT m$(2):G60TO 198% 
saas IF o=4 THEN PRINT m$(TF)ıG0T0 19080 
saa4 IF 0o=8 THEN FRINT m$(2):GOTO 198% 
60086 IF o=1@ THEN FRINT m$(I) :ıG0OTD 1080 
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6997 IF o=13 THEN FRINT m$(53):60T0 198% 

6088 IF 0=15 THEN FRINT m$(2):G0TO 1986 

all IF 0=65 THEN ob (5)=-1:PRINT 0k$:GOTO 
10980 

salz IF 0=7 THEN ob (o)=-1:FRINT 0k$:G60TO 
180 

62914 IF o=12 THEN ob (o)=-i:FRINT 0ok$:GOT 

0 1680 

6217 IF 0=17 AND f1(5) THEN FRINT ok#s:ob 
(o)=-1:6G0T0 1680 

67a1 IF o=16 AND ob (18)=spieler THEN FRI 

NT ok$:ob (18)=-1:60T0 1980 

71a IF o=1 AND spieler=2 THEN PRINT m$( 

2):GOTO 1986 

6997 FRINT"So etwas sehe ich hier nicht 
1":GOTO 10890 

zaaG IF 0o=16 AND ob (18)=-1 THEN PRINT ok 

$:0b (18)=spieler:GOTO 1086 

79a81 IF ob(to)i>-1 THEN FRINT"So etwas be 

sitze ich doch gar nicht '!":G0OTO 1980 

7e1@ IF o=6 AND spieler=5 THEN ob (6) =6: f 
1(2)=-1:FRINT m$ (4) :FRINT m$(5) :sob (14)=6 
:GOTO 1080 

gaa5 IF 0o=4 AND spieler=S THEN PRINT"Die 
Huette war bereits offen.":GOTO 1080 

ga29 IF o=11 AND NOT fi1t1) THEN PRINT"Da 

s laesst die kette nicht zu.":GOTO 1489 

g9aaa IF o=16 AND ob(18)=-1 AND spieler=4 
THEN PRINT"Die kette zerspringt."ıfl(t) 

=-1:60T0 108% 

99797 FRINT"Ich verstehe nicht, was Du me 

inst.":GOTDO 108% 

19009 IF o=16 AND spieler=4 AND ob (18) =- 
1 THEN FRINT"Die kette zerspringt."ıfl(i 
I)=-1:6G0T0 1980 

10919 IF o=16 AND spieler=4 AND ob(18)<} 

-1 THEN FRINT"Womit ?":GOTO 10980 

19999 FPRINT"Ich verstehe nicht, was Du m 

einst.":GOTO 1080 
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4. KAPITEL 
- PERFEKTIONIERUNG - 
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VOM GUTEN ZUM PERFEKTEN ADVENTURE 


Wenn Sie mit der Miniversion von Goldrausch gespielt oder 
selber ein Adventure auf der Basis der bislang erarbeiteten 
Techniken erstellt haben, werden Sie mit mir 
übereinstimmen, daß der Standard gängiger Programme der 


Gattung Adventures durchaus erreicht wurde. 


Dennoch lassen sich ab und an Abenteuerspiele finden, die 
mit weiteren Extras aufwarten. Um sich über die Konkurrenz 
erheben zu können, - wurde entweder ihre 
Benutzerfreundlichkeit erhöht, oder es fanden bei der 
Realisierung des Spieles auch die kleinen 
Nebensächlichkeiten des täglichen Lebens Verwendung, und 
erschweren dem Spieler das Leben nun zusätzlich. 

Darüber hinaus existieren bereits einige Programme, die mit 
entsprechendem Werbeaufwand auf ihre noch nie dagewesenen 
Besonderheiten aufmerksam machen. 

So wird auch dem Gehör des Spielers etwas geboten, von 
einzelnen Beeps und Pieps, die einen verstandenen oder aber 
einen undurchführbaren Befehl signalisieren über die 
akustische Untermalung sichtbarer Objekte bis hin zur 
Nachahmung der menschlichen Stimme. Leider ist der 
spielerische Nutzen all dieser Extras gleich Null, und man 
sollte es sich mehr als zweimal überlegen, ob man sein Geld 
für speicherfüllende Effekthascherei opfert oder lieber 
eine um den gesparten Speicherplatz vergrößerte 


Adventurewelt vorzieht. 


BENUTZERFREUNDL ICHKEIT 


wird für Geschäftsprogramme immer wieder gefordert, warum 
nicht auch für Spiele ? 


Da gibt es doch tatsächlich Adventures, die dem Spieler 
nicht einmal mitteilen, auf welchen Wegen er einen 
gefährlichen Ort wieder verlassen kann. Sie warten nur 
darauf, ihn durch die nach Eingabe der verschiedensten 
Himmelsrichtungen auftauchende Mitteilung “In diese 
Richtung kannst du nicht. - You can't go in that 


direction.‘ zur Verzweiflung zu treiben. 


Gut, daß der Spieler sich die Haare raufen darf und soll, 
damit bin ich einverstanden, doch scheinen mir diese 
Programme eher dazu geschrieben worden zu sein, um mit dem 
Werbespruch Wir garantieren Ihnen, daß Sie Monate 
brauchen, um alle Orte dieses Adventures kennenzulernen !‘ 


an den Adventurefan gebracht zu werden. 


Diese Kritik kann unser Adventuresystem glücklicherweise 
nicht treffen, dennoch ist mit dem Fehlen jeder Möglichkeit 
zum Abspeichern des augenblicklichen Spielstandes eine 
Voraussetzung gegeben, die Freude an einem Spiel rasch zu 
vergällen. 

Unglücklicherweise gilt das umso mehr für Adventures, bei 
deren Entwicklung wir einen besonderen Aufwand getrieben 
haben, und auf deren Komplexität und intelligent gestellte 


Fallen wir besonders stolz sein dürfen. 


Helfen wir also dem Spieler, der sowieso mehr als nur 
sieben Leben haben muß, um alle möglichen adventuregemäßen 
Arten des Ablebens kennenlernen zu können, und schaffen wir 
die technischen Voraussetzungen dazu, daß er das Spiel, um 
eine Erfahrung reicher, ab dieser Stelle fortsetzen kann. 
Wenn er dann nicht rechtzeitig Gebrauch von dieser 
sinnvollen Erweiterung macht, kann er sich nur über sich 


selber ärgern. 
Außerdem verhindern wir mit diesen Routinen einen Schnitt 


ins eigene Fleisch, denn während der Testphase eines 


Adventures wird sich immer wieder die Notwendigkeit kleiner 
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Programmänderungen zeigen, welche leider auch die Inhalte 
aller Variablen zunichte machen. 

Was bleibt, ist nur ein neuer Start mit Run und die 
Wiederholung aller notwendigen Eingaben, um wieder in den 
Raum zu gelangen, in dem der Fehler aufgetreten war, und um 
dann die Feststellung zu machen, daß die neue Version 


keineswegs eine Verbesserung bedeutet. 


SAVE GAME / LOAD GAME 


Überlegen wir zunächst, wodurch sich eine bestimmte Szene 
des Spieles von der Ausgangsstellung unterscheidet. 


Sofort fällt uns der Spieler ein, der sich mehr oder 
weniger zielstrebig umherbewegt hat, ebenso denken wir an 
die Gegenstände, die er genommen oder abgelegt, zerstört, 
verbraucht oder gegessen hat, also an Gegenstände, die 
nicht mehr existieren ebenso wie an Dinge, die neu im Spiel 


aufgetaucht sind. 


Neben diesen sichtbaren, und deshalb vielleicht weniger 
wichtigen, weil kontrollierbaren Variableninhalten, müssen 
wir ebenfalls zur Steuerung des Spielverlaufes gemachte 
Veränderungen retten, sonst kann es geschehen, daß eine 
Aktion trotz aller erforderlichen Gegenstände nicht den 
gewünschten Erfolg bringt. 


Denken wir nur an die Flags, die nicht immer nur für den 
Verlauf einer zusammenhängenden Aktion, sondern auch für 
die Kontrolle scheinbar zusammenhangloser Ereignisse 
benutzt werden können. 

Gleiches gilt für unsere Richtungstabelle, auch hier sind, 
wie wir später noch sehen werden, umfangreiche 


Veränderungen durchaus üblich. 
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Kurz gesagt: die Inhalte der Variablen SPIELER, OB(), FL() 
und DURCHGANG(,) müssen vor einem Spielabbruch als 
sequentielle Datei auf der Diskette bzw. Kassette 


gespeichert werden. 


Exkurs: Externe Datenspeicherung 


Neben der internen Datenspeicherung, bei der die Daten im 
eigentlichen Arbeitsspeicher der CPU abgelegt werden und 
ihr somit ständig zur Verfügung stehen, sind für den Umgang 
mit Daten, gleich welcher Art, auch externe Speicher 
notwendig, die den Speicher eines Computers fast beliebig 
erweitern und im wesentlichen der Archivierung und der 
Bereitstellung größerer Datenmengen dienen. Als Vertreter 
dieser Gattung sind beispielsweise Lochkarten und 
-streifen, Magnetbänder, Platten- und Walzenlaufwerke wie 
auch unsere Diskettenstation oder der in den CPC #64 


eingebaute Datenrekorder zu nennen. 


Abgesehen von verschiedenen Kapazitäten und Zugriffszeiten, 
lassen sich auch Unterschiede in der Art der 


Datenspeicherung erkennen. 


Speichergeräte, wie ein Lochstreifenstanzer/leser oder wie 
der Datenrecorder, arbeiten dabei mit sogenannten 
sequentiellen Dateien, und sind am ehesten mit einer 
altertümlichen Papyrusrolle zu vergleichen, während ein 
Disketten- oder Plattenlaufwerk meist mit relativen Dateien 


arbeitet, was einem Karteikasten nahekommt. 


Beide Verfahren haben wihre Vor- und Nachteile, die 
besonders im jeweiligen Platzbedarf und in der Zeit, die 
benötigt wird, um einen bestimmten Datensatz zu finden, zur 
Geltung kommen. 

So wird jede Anschrift einer Kundendatei in einem 


Karteikasten eine eigene Karte beanspruchen, während auf 
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der Rolle zwecks Papierersparnis alle Adressen möglichst 
dicht notiert wurden. Wird aber die Adresse des Kunden 234 
gesucht, nimmt man sich die 23%. Karte, denn 
selbstverständlich sind alle numeriert, bei der Rolle wird 
es sich hingegen nicht vermeiden lassen, alle Anschriften 


zu lesen oder sie zumindest von vorne an durchzuzählen. 


Die Leser, die sich nun mehr mit Dateien befassen möchten, 
mögen dies mit entsprechender Literatur tun, ansonsten mag 
die Bemerkung genügen, daß die sequentielle Speicherung für 
unser Problem genau das richtige Verfahren ist, denn wir 
wollen unsere Variableninhalte der Reihe nach speichern und 
später wieder laden, das heißt, besondere Zugriffsmethoden 


sind für uns nicht erforderlich. 


Save Game 


Die Übertragung der Daten wird zweckmäßigerweise innerhalb 
entsprechender Schleifen geschehen, wozu es jedoch nötig 
wird, die Kenndaten des Programmes um die Anzahl der 
verwendeten Flags zu erweitern, denn auch dieser Schleife 


muß ein Endwert zugrunde gelegt werden können. 


Ebenso müssen wir eine Änderung der Programmzeile 1500 
vornehmen, um die neuen Routinen in die Abfrage der 


Sonderbefehle einzubauen: 


140 af=3 


1500 IF LEFT$(eingabe$,3)<>"INV" THEN GO 
TO 1600 


Handelte es sich bei der letzten Eingabe des Spielers nicht 
um den Befehl Inventur, werden einige Sprünge ausgeführt, 
bis die Identität mit einem der Kurzbefehle festgestellt 


worden ist: 
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1599 REM **txkeukeekekkeekeetk SAVE GAME 
1600 IF LEFT$(eingabe$,3)<>"SAV" THEN GO 
TO 1700 
1699 REM ***xxxektekkekkeeeekk LOAD GAME 
1700 IF LEFT$(eingabe$,3)<>"LOA" THEN GO 
TO 1900 


Bevor das Betriebssystem unseres Computers dann die Daten 
übertragen kann, müssen ihm zunächst einige Informationen, 
wie Übertragungsrichtung, Transportweg und Adressat, 
genannt werden, eine Aufgabe, die der Openbefehl in 


Zusammenarbeit mit der Print - Anweisung übernimmt. 


1620 OPENOUT "SPIELSTAND" 


Der Übertragung von Spieldaten steht nach dieser 
Vorbereitung nichts mehr im Wege. Die Ausgabe der Daten auf 
die Cassette erfolgt dabei in ähnlicher Form wie eine 
Ausgabe auf den Bildschirm, der Print Befehl muß nur durch 
die Angabe einer Filenummer (#9) umdirigiert werden. 

Ein abschließender Close - Befehl übernimmt es, uns vor der 
Rückkehr ins Hauptprogramm vor später auftretenden Fehlern 
zu schützen. 


930 FOR flag=1 TO af:fl(flag)=0O:NEXT fla 
g 

1625 PRINT #9,spieler 

1630 FOR objekt=1 TO ao 

1631 PRINT #9,ob(objekt) 

1632 NEXT objekt 

1635 FOR raum=1 TO ar 

1636 FOR richtung=1 TO 6 

1637 PRINT #1,durchgang(raum, richtung) 
1638 NEXT richtung 

1639 NEXT raum 

1645 FOR flag=1 TO af 

1646 PRINT #9,fl(flag) 

1647 NEXT flag 
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1650 CLOSEOUT 
1670 GOTO 1080 


Load Game 


Zur Rekonstruktion einer bestimmten Situation ist es 
erforderlich, diese Daten wieder an die entsprechenden 
Variablen zu überweisen, eine Aufgabe, die ein fast 


identischer Programmteil übernimmt: 


1720 OPENIN "SPIELSTAND" 
1725 INPUT #9, spieler 
1730 FOR objekt=1 TO ao 
1731 INPUT#9,ob(objekt) 
1732 NEXT objekt 

1735 FOR raum=1 TO ar 
1736 FOR richtung=1 TO 6 
1737 INPUT #9,durchgang(raum, richtung) 
1738 NEXT richtung 

1739 NEXT raum 

1745 FOR flag=1 TO af 
1746 INPUT #9,£fl(£flag) 
1747 NEXT flag 

1750 CLOSEIN 

1770 GOTO 1080 


Um unser Programm noch luxuriöser auszustatten, werden wir 
noch einige weitere Zeilen ergänzen. So ist es durchaus 
nicht notwendig, daß wir uns auf ein einziges File zur 
Abspeicherung beschränken, eine zweite Datei wird sogar 
unbedingt erforderlich werden, wenn weitere Mitglieder 
unserer Familie ihr Herz für Adventures entdecken und sich 


an dem gleichen Spiel versuchen wollen. 
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Lassen wir den Spielern daher die freie Wahl und erlauben 
wir ihnen, einen Namen nach Wunsch, bis zu einer maximalen 
Länge von neun Buchstaben, zu wählen. Das Adventure soll 
dieses File dann mit der Ergänzung .ADVDAT als 


Spielstandsdatei kennzeichnen. 


Als zweckmäßig erweist es sich weiterhin, den Abbruch des 
Programmlaufes im Falle eines auftretenden Fehlers zu 
verhindern, was sehr leicht geschehen kann, wenn eine 
falsche Cassette (oder Diskette) in das betreffende 
Laufwerk eingelegt wurde. 

Solchermaßen komplettierte Unterprogramme werden dann 


ähnlich den folgenden Listings aussehen. 


1599 REM KHK SAVE GAME 
1600 IF LEFT$(eingabe$,I)<>"SAV" THEN GO 
TO 1700 

16810 FRINT"REC % PLAY druecken .„..":PRIN 
T"Unter welchem Namen speichern „uurnes. 
..";5TRING$(10,8)5 5 INPUT eingabes 

1620 IF LEN(eingabe#) >10 THEN PRINT"ERitt 
e etwas kuerzer !":60T0 1610 ELSE eingab 
e$="!"+teingabe$+".SPIEL":OPENOUT eingabe 
$ 

1625 FRINT£9, spieler 

1630 FOR objekt=1 TO ao 

1651 PRINT£9,ob (objekt) 

1632 NEXT objekt 

16535 FOR raum=1 TO ar 

16356 FOR richtung=1 TO & 

16357 PRINT£9, durchgang (raum,richtung) 
1658 NEXT richtung 

16859 NEXT raum 

1645 FOR flag=1 TO af 

164& FRINT£9,fl(flag) 

1647 NEXT flag 

1850 CLOSEOUT 

16860 PRINT ok$ 

1870 GOTO 1080 


1699 REM KUREN LOAD GAME 
1700 IF LEFT$(eingabe$,S)«<>"LOA" THEN GO 
TO 1900 

1710 FRINT"Cassette rueckspulen % PLAY d 
ruecken „..":PRINT"Welches Spiel laden . 
„unennnn. "3STRINGS$(10,8)5: INPUT eingabe# 
1720 IF LEN(eingabe$) 10 THEN PRINT"Das 
kann nicht sein !":60T0 1710 ELSE eingab 
e$="!"+eingabe$+".SPIEL":OPENIN eingabe$ 
1725 INPUT£I, spieler 

1730 FOR objekt=1 TO ao 

1731 INPUT£Y,ob (objekt) 

1732 NEXT objekt 

1735 FOR raum=i TO ar 

1756 FOR richtung=1 TO 6 

1737 INFUT£P, durchgang (raum, richtung) 
1738 NEXT richtung 

1739 NEXT raum 

1745 FOR flag=i1 TO af 

174& INPUTE£EI,fFlL(flag) 

1747 NEXT flag 

1750 CLOSEIN 

1760 FRINT ok# 

1770 GOTO 1080 

1780 FRINT"Achtung Fehler !":BORDER SıRE 
SUME NEXT 
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DER WORTSCHATZ 


Häufig macht die richtige Wortwahl ein Adventurespiel zur 
Qual, denn schließlich wird man als Spieler gezwungen, sich 
der gleichen Ausdrucksweise wie der Programmierer zu 
bedienen, was nicht immer ganz einfach ist. 

Importe, die für den fortgeschritteneren amerikanischen 
Markt bzw. englischen produziert wurden, lassen sich mit 
dem Schulenglisch häufig gar nicht, fast immer aber nur 
schwer lösen. Ein englisch - deutsches Wörterbuch hat bei 
einigen Spielern daher seinen festen Platz win Reichweite 
des Computers, doch auch dieses Hilfsmittel versagt, wenn 
sich der Autor der Umgangssprache oder eines Slangs bedient 
hat. 


Scheitern viele Spiele an der Sprachbarriere, freut man 
sich um so mehr, wenn aus irgendeiner Quelle plötzlich ein 
deutsches Adventure auftaucht. . 

Doch sofort trüben zwei Eigenarten den rosaroten Blick, 
denn unsere Muttersprache ist bei weitem nicht so gut dazu 
geeignet, ähnlich wie bei den englischsprachigen 
Originalen, mit nur zwei Worten die unterschiedlichsten 
Situationen zu artikulieren. Schlimmes Gastarbeiterdeutsch 
mag noch akzeptabel sein, und auch über die unmöglichsten 
Satzkonstruktionen kann man zumindest zu Beginn noch 
lachen, doch wie soll ein normal begabter und veranlagter 


Mensch ohne Hilfestellung auf diese Eingaben kommen ? 


“Nimm Messer’ ist dabei gar nicht einmal so übel, doch das 
Messer wird auch eine Aufgabe zu erfüllen haben. Es bleibt 
jedoch weiterhin ein erfreulicher Gegenstand, denn Eingaben 
wie 'Wirf Messer’, "Schleife Messer’ oder Schärfe Messer’ 
erfordern nicht allzuviel Phantasie und sind ebenfalls 


recht eindeutig auszulegen. 
Hat das Messer seine Funktion erfüllt, muß man sich seiner 


früher oder später entledigen, was bei einigen Spielen 


durch bewußtes Verlieren geschehen kann. Etwas besser als 
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“Verliere Messer’ wirkt schon Leg Messer’, doch taucht 
automatisch die Frage nach dem wohin auf oder es wird 
zumindest noch ein 'weg’ erwartet. Diese Eingabe steht zwar 
im Widerspruch zu den üblichen Spielregeln, sollte aber 


dennoch, zumindest auf unserem System, versucht werden. 


Betrachten wir abschließend noch einmal ein Beispiel der 
ersten Seiten dieses Buches. Wie gelangen wir in die Krone 
des Baumes, vielleicht mit 'Kletter Baum’ ? 


Leider nicht, aber wohin bringt uns ein besser klingendes 
“Erklettere Baum’ ? 


Wieder nur die Mitteilung, daß das Wort ’Erklettere’ nicht 
verstanden wurde, also aufgeben oder weitergrübeln ? 

Es wird sich nicht vermeiden lassen, Verben wie ersteige, 
besteige und erklimme zu erproben, und wenn die Aktion 
wirklich erforderlich ist, wird der Erfolg sich früher oder 


später einstellen. 


Probleme dieser Art sind natürlich nicht sehr schön, und da 
dieses Kapitel von der Perfektionierung unseres 
Adventuresystemes handelt, werden wir uns nach geeigneten 
Lösungsmöglichkeiten umsehen. 


SYNONYME 


Gleichbedeutende Worte in reichlicher Menge einzuarbeiten, 
wäre ein erster Vorschlag zur Lösung des Sprachproblemes, 
wie jedoch das Beispiel des Baumes zeigt, kann die 
konsequente Ausstattung mit gleichbedeutenden Worten den 
Umfang eines Programmes sehr vergrößern, was ein immenses 
Maß zusätzlicher Routinearbeit bedeutet und den sowieso 
immer knapper werdenden freien Speicherplatz stark 


einschränkt. 
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Dennoch soll hier, wieder am Beispiel unserer Miniversion, 
von Goldrausch, ein Lösungsvorschlag eingebracht werden, 
der durch seine Kürze und Einfachheit doch schon fast 
wieder überzeugt. Selbstverständlich handelt es sich um 
keine zwingend erforderlichen Programmzeilen, es liegt an 
Ihnen, ob Sie Wert auf einen großen Wortschatz legen oder 
ob Sie sich mit dem anschließend gemachten Vorschlag zur 
Verbesserung der Benutzerfreundlichkeit zufrieden geben 


wollen. 


Die erste Gelegenheit, nicht sofort das richtige Wort zu 
treffen, hat ein Spieler von Goldrausch in Raum 3 bei dem 
Versuch, die Holzhütte näher in Augenschein zu nehmen. 
Bislang wird er mit Untersuche Holzhütte‘’ scheitern, der 


Erfolg wird sich erst bei Untersuche Hütte’ einstellen. 


Damit der zweite Begriff überhaupt verstanden werden kann, 
müssen wir unser Vokabular zunächst erweitern: 


120 ao=20 
320 DATA "-","holz"“,O 


Die ausführliche Beschreibung können wir uns sparen, 
desgleichen wird die Null als Aufbewahrungsort verbindlich, 
schließlich soll weder im Inventory noch in einem Raum eine 
weitere Hütte auftauchen. 

Benötigt wird nur der Rufname, damit der Adventuretreiber 
die entsprechende Objektnummer ermitteln kann, was in Zeile 


2140 auch geschieht. 


Normalerweise wird die Ausführung des Programmes in Zeile 
2200 mit einem Sprung zur jeweiligen Befehlsausführung 
fortgesetzt. Dort findet sich natürlich keine einzige 
Bedingung, die erfüllt wäre, da nirgendwo für o ein Wert 
von 20 gefordert wird. Um diese Zeilen nicht ergänzen zu 


müssen, fügen wir folgenden Kunstgriff ein, 
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2140 IF eobjekt$=rufname$(o) THEN 2170 
2165 REM KAKKRKKKKKKKK KK CK KK GR KK I I SYNONYME 
2170 IF o=20 THEN o=4 


und schon werden mit der Holzhuette genau die gleichen 
Aktionen durchgeführt wie mit der Huette. 


Um unser Programm in die Lage zu versetzen, auch eine 
Vielzahl von Verben verstehen zu können, ist der zu 
treibende Aufwand sogar noch geringer. 

Ein die gleiche Aktion einleitendes Wort wird ebenfalls dem 
Wortschatz des Adventures zur Verfügung gestellt, und die 
Sprungtabelle wird einfach um das bereits einmal benutzte 
Sprungziel ergänzt. 


Goldrausch erweitern wir auf diese Weise um die zu 
“Untersuche” identische Funktion "Betrachte’: 


130 av=7 

202 DATA betr 

2200 ON verbnummer GOTO 5000, 6000, 7000,8 
000, 9000, 10000, 5000 


Sie sehen, daß unser System sich um gleichbedeutende Verben 
besonders einfach erweitern läßt, weshalb wir zumindest auf 


diesen Bonus nicht verzichten sollten. 


Synonyme der Objekte dürfen wir stiefmütterlich behandeln, 
denn ihnen kommt sowieso nicht die gleiche Bedeutung zu, 
denn die Kopfzeilen des Spieles werden fast immer, mit 


Ausnahme bei den Grafikadventures, Anhaltspunkte geben. 


wir können es dem Spieler aber auch einfacher machen, so 
daß er sich wirklich auf die Problemlösungen konzentrieren 
kann und auf der Suche nach den richtigen Worten nicht den 
roten Faden verliert. 
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Was würden Sie davon halten, wenn ein Adventure auf Wunsch 
sein gesamtes Vokabular preisgibt, wenn es eine Liste aller 
vorhandenen Objekte und möglichen Verben erstellt ? 


Ich verstehe folgende Verben: 


untersuche 
nimm 

leg 

oeffne 
benutze 
zerstoere 
zuende 
fuelle 
betrete 
loesche 


befestige 


Taste druecken 


Ein solches Bild dürfte alle Probleme der Wortwahl aus der 
Welt schaffen, und der Spieler verliert nicht durch 


sinnlose Eingaben Zeit und Lust. 


Leider läßt sich an dieser Stelle zum zweiten Mal der 
Volksmund zitieren, denn ‘Wo Licht ist, ist auch Schatten’. 


Stellen wir uns einen Spieler vor, dem Goldrausch noch 
nicht bekannt ist. Ohne viel gespielt zu haben, wird er, 
wenn er einigermaßen konsequent und logisch denken kann, 
sogleich eine Lösungsstrategie entwickeln, die ihn schnell 
ans Ziel bringt. Er kennt sofort den gesamten Wortschatz 
und weiß, daß sich irgendwo eine Flasche finden läßt, daß 
irgendwo eine Truhe liegt und wird ebenfalls sogleich ein 
starkes Verlangen nach Silber und Nuggets entwickeln. 
Anschließend überlegt er, welche Gegenstände sich zerstören 
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lassen, und seine Wahl wird auf die Flasche, die Hütte und 
die Kette fallen. 

Er bemüht sich, die Schatztruhe zu finden, und nachdem er 
die Feststellung machte, daß eine Eisenkette ihn am Sichten 
des Inhaltes behindert, versucht er diese zu zerstören, was 
aber mit bloßen Händen kaum gelingen wird. Ein weiteres VOK 
wird ihm dann die Ahnung vermitteln, daß die Eisenstange 
vermutlich der einzige Gegenstand ist, der für diese 


Aufgabe in Frage kommt. 


Aber auch die Gefahren werden entschärft, denn es bleibt 
ihm auch nicht verborgen, daß außer ihm noch ein Bär die 
Welt bevölkert ! 


Somit wird dem Programmierer auch noch die Aufgabe 
zufallen, genau abzuwägen, ob er den gesamten Wortschatz 
des Adventures preisgeben will oder nur eine Untermenge. 


Dies könnte problemlos durch ein weiteres Titelbild 
geschehen, welches eine Anzahl der wichtigsten Worte 
ausgibt, allerdings würden wir damit unserem Ziel, ein 
universelles Adventuresystem zu entwickeln, 
entgegenhandeln, weil diese Tafel für jedes Programm neu 
erstellt werden müßte. 


Für große Adventures mit einem entsprechenden Wortschatz 
bleibt die Auflistung des Vokabulars Jedoch durchaus 
sinnvoll, weshalb wir bei der Entwicklung unseres 


Adventuresystemes ebenfalls nicht darauf verzichten wollen. 


Die Behandlung des VOK - Befehles übernimmt aus eben 
genanntem Grunde der Treiber. Um eine wirklich universelle 
Verwendung dieses Programmteiles zu gewährleisten, müssen 
die zur Ausgabe bestimmten Worte aus den Spieldaten des 


betreffenden Adventures ermittelt werden. 
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Es wurde bereits kurz erwähnt, daß der Basic - Befehl 
Restore den sogenannten DATA - Zeiger auf den Beginn des 
Datenblockes stellt, und das nächste Read wieder das erste 


Element der Liste einer Variablen zuweisen wird. 


Glücklicherweise kommt die Anordnung unserer Adventuredaten 
einem solchen Vorgehen entgegen, da zuerst die Verben und 
daran anschließend die Objekte genannt werden, es muß keine 
Ausführungszeit auf das Lesen der übrigen Daten verwandt 


werden. 


Bauen wir das entsprechende Unterprogramm, unter 
Berücksichtigung der wahrscheinlichen Häufigkeit eines 
Aufrufes der entsprechenden Zeilen, im Anschluß an die INV, 
SAVE, und LOAD Routine ein: 


1700 IF LEFT$(eingabe$,3)<>"LOA" THEN GO 
TO 1800 

1800 IF LEFT$(eingabe$,3)<>"VOK" THEN GO 
TO 1900 

1805 CLS:PRINT"Ich verstehe folgende Ver 
ben: *: PRINT: PRINT:RESTORE 


Ein nachfolgendes Read verhält sich nun genau so, wie der 
erste Read - Befehl nach dem Einschalten des Computers. 
Übernehmen wir daher die entsprechenden Programmzeilen aus 
Teil 1 mit der Änderung, daß die eingelesenen Daten nicht 
weiter gespeichert, sondern nur auf dem Bildschirm 


ausgedruckt werden: 


1810 FOR i=1 TO av 
1820 READ wort$:PRINT wort$ 
1830 NEXT i 


Anschließend wollen wir dem Spieler ausreichend Zeit geben, 
die Verbliste zu studieren. Da Gleiches auch nach Ausgabe 
der Objekte geschehen soll, realisieren wir die 


entsprechenden Zeilen als Unterprogramnm. 
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Dieses wird dann an den betreffenden Stellen mit Gosub 


aufgerufen: 


1840 GOSUB 1890 

1845 CLS:PRINT"und folgende Gegenstaende 
sind mir":PRINT"bekannt" :PRINT 

1850 FOR i=1 TO ao 

1860 READ wort$,wort$,x:PRINT wort$ 

1870 NEXT i 

1880 GOSUB 1890:CLS:GOTO 1080 


1890 LOCATE 1,25:PRINT "Taste drucken" 
1895 eingabe$=INKEY$:IF eingabe$="" THEN 
1895 ELSE CLS:RETURN 


Zu beachten ist, daß ohne die Verwendung entsprechender 
Basic - Erweiterungen, DATA - Zeilen ebenfalls sequentiell 
gelesen werden. Zeile 1860 weist der Stringvariablen wort$ 
daher zunächst die ausführliche Objektbeschreibung zu, 
die, weil wir diesen langen Text an dieser Stelle nicht 
benötigen, daran anschließend sofort mit dem Rufnamen 


überschrieben wird. 


Zum Abschluß der Auflistung des gesamten Vokabulars wird 
wieder das Unterprogramm ab Zeile 1890 aufgerufen, damit 
nach Drücken einer weiteren Taste das Adventure fortgesetzt 


werden kann. 


Obige Zeilen werden nun wie vorgesehen arbeiten, zumindest 
solange nicht mehr als zwanzig Worte ausgegeben werden 
müssen. Nach überschreiten dieser zahl wird die 
Verweildauer der ersten Vokabeln auf dem Bildschirm kaum 
von ausreichender Länge sein, um eine Hilfe für den Spieler 
zu Sein. 


Zur Lösung des Problemes führen wir die Kontrollvariable 
Zeile ein. Sie wird zu Beginn der Ausgabe auf Null gesetzt, 
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und bei der Ausgabe eines jeden Wortes um eins erhöht. Sind 
mit zwanzig Worten entsprechend viele Zeilen benutzt 
worden, löschen wir den Bildschirm und setzen den Zähler 
wieder auf eins zurück. 


1849 zeile=O 

1850 FOR i=1 TO ao 

1855 zeile=zeile+t1 

1860 READ wort$,wort$,x:PRINT wort$ 
1865 IF zeile=20 THEN GOSUB 1890 
1866 IF zeile=20 THEN zeile=1:CLS 
1870 NEXT i 


Ein Programmlauf bringt nun das gewünschte Ergebnis, doch 
entsprechen die erscheinenden Kürzel UNT, OEF und wie sie 


alle heißen keineswegs dem Standard unserer Programme. 


Um ein zufriedenstellenderes Ergebnis zu erzielen, ändern 
wir die Verben und Objekte in den für sie vorgesehenen DATA 
- Zeilen (200 - 500) und machen uns die Mühe, sie, ohne 


Berücksichtigung der relevanten Wortlänge, auszuschreiben. 


Durch diese Manipulation ergibt sich nun die Notwendigkeit 
einer weiteren Ergänzung in den Zeilen 815 und 835, 
schließlich wollen wir den für die Variablen vorgesehenen 


Speicherplatz nicht unnötig verschwenden. 


Warum soll das ganze Wort gespeichert werden, wenn zur 
eindeutigen Identifizierung eines Spielzuges nur drei oder 


vier Buchstaben von Bedeutung sind. 


815 READ verb$(i):verb$(i)=LEFT$(verb$(i 
),wortlaenge) :verb$(i)=UPPER$(verb$(i)) 
835 READ ob$(objekt) ,rufname$(objekt),,ob 
(objekt) :rufname$(objekt)=left$(rufname$ 
(objekt) ‚wortlaenge) :rufname$(objekt)=UP 
PER$(objekt) 
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HELP 


Die Entwicklung einer Help - Routine soll nun ein letzter 
Schritt sein, um die Benutzerfreundlichkeit unserer 
Adventures zu erhöhen. 


Glaubt der Spieler, daß er sich restlos verfahren hat, so 
wird er versuchen, durch die bloße Eingabe von Help in den 
Besitz hilfreicher Informationen zu gelangen. 


Handelt es sich um ein einfaches Spiel, weil im Verlauf 
desselben genügend Hinweise gegeben werden, machen wir uns 


die Sache einfach: 


1959 REM 2.2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 zu 49:2 


1960 IF LEFT$(eingabe$,4)<>"HELP“ THEN G 
OTO 2000 

1970 PRINT"Ich kann die Spielregeln wied 
erholen.":PRINT"Wuenschen Sie das ?" 
1971 eingabe$=INKEY$:IF eingabe$="" THEN 
1971 ELSE GOSUB 900 

1975 GOTO 1080 

1979 REM E22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2; ENDE HELP 


Eine noch häufiger anzutreffende Standardantwort lautet "Ich 
würde alles untersuchen ! - Try examining things !*. 

Meist werden jedoch, zumindest in den Abenteuerspielen 
neueren Datums, Ratschläge gegeben, die manchmal allerdings 
wenig hilfreich, weil für den Spieler nicht zu verstehen, 


sind. 


Denn da es sich um einen Ein - Wort Befehl handelt, steht 
die gewünschte Hilfe nicht in Beziehung zu einem bestimmten 
Objekt, was eine Auswertung der Situation in Hinblick auf 
die Schwierigkeiten des Spielers nicht gerade einfach 
macht. 


Schließlich steht dem Programm als Arbeitsgrundlage nur 
der Aufenthaltsraum des Spielers zur Verfügung, und so ist 
es nicht weiter verwunderlich, daß viele Adventures in 
problematischen Räumen immer wieder die gleiche Mitteilung 
an den Abenteurer ausgeben, die er deshalb nicht verstehen 
kann, weil seine Gedanken bislang um ein anderes Problem 


kreisen. 


Als typisches Beispiel ziehen wir eine Spielszene aus Raum 
4 heran. Der Spieler hat die Schatztruhe entdeckt und müht 
sich seit längerer Zeit vergeblich mit der hinderlichen 
Eisenkette ab. In dieser Situation wäre folgender Hinweis 
denkbar: 


1970 IF spieler=4 THEN PRINT"Ein verlaen 
gerter Arm verstaerkt die" :PRINT"Kraft ! 
":GOTO 1080 


Was könnte ein Spieler, der in Raum 4 um Hilfe bittet, mit 
der Information, an die Hebelgesetze zu denken, anfangen, 
wenn er bereits bei der Suche nach der Truhe gescheitert 
ist und er somit die Kette noch nicht entdeckt haben kann ? 


will man den Spieler verwöhnen und in besonders schwierigen 
Situationen Schritt für Schritt an die Lösung heranführen, 
wird es, wie obiges Beispiel zeigt, nicht ohne die 
Formulierung umfangreicher Tests und Bedingungen gehen. Für 
diese Aufgabe scheinen wieder einmal die Flags wie auch die 
Aufbewahrungsorte der verschiedensten Gegenstände 
prädestiniert zu sein. 


Wiederum am Beispiel der Truhe probieren wir einmal diese 
Art der genau dosierten Hilfestellung aus, was allerdings 
nicht heißen soll, daß diese Szene als besonders schwierig 


zu gelten hat: 


606 m$(6)="Wie kann ich die Kette zersto 
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eren ?" 
607 m$(7)="Sie verhindert ein Oeffnen de 
r Truhe !"“ 


1970 IF spieler=4 AND ob(10)=O THEN PRIN 
T"Fast waere ich in ein Loch gefallen.*: 
GOTO 1080 

1971 IF spieler=4 AND ob(11)=spieler AND 
NOT fl(2) THEN PRINT m$(6):PRINT m$(7):G 
OTO 1080 


Erinnern wir uns, daß beim Passieren des betreffenden 
Raumes zunächst nur die Büsche sichtbar sind, und das 
Erdloch zwischen den Büschen erst entdeckt werden muß. 
Erlangt der Spieler jedoch die Information eines Beinahe - 
Sturzes in eine Grube, wird er sich wohl näher mit diesem 
Hindernis beschäftigen. 


Ein weiterer Versuch mit Help bringt zu diesem Zeitpunkt 
keinen besonderen Vorteil. Erst nachdem die Truhe als 
sichtbares Objekt zur Ausstattung des Raumes gehört, erhält 
der Spieler den Hinweis, daß die Begutachtung des Inhaltes 
die Zerstörung der Kette und das Öffnen des Deckels 
erfordert. 


Diese Aktionen wird er dann wohl hoffentlich alleine 
durchführen können, falls nicht, wäre es für diesen Spieler 
eine Überlegung wert, ob er nicht lieber einen Roman lesen 


oder es mit Arcade - Action Spielen versuchen sollte. 


Den Abschluß einer solchermaßen durchkonstruierten 
Hilfestellung wird wieder eine Sicherheitszeile, wie wir 
sie bereits bei der Programmierung der anderen Aktionen 
kennengelernt haben, bilden, eine Zeile, die immer dann 
ausgeführt wird, wenn keine speziell definierte Situation 


eingetreten ist: 
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1971 

1972 

1975 PRINT"Erst sehen, dann denken und z 
uletzt handeln !":GOTO 1080 


MOTIVIERUNG DES SPIELERS 


Unser nächster Vorschlag für bessere Adventures wird 
unseren Adventuretreiber um einen letzten Ein - Wort Befehl 
erweitern. 


Abenteuerprogramme benötigen für ihre Lösung nun einmal 
einen gewissen Zeitaufwand, wenn man jedoch tagelang spielt 
und überhaupt keinen Fortschritt sieht, fragt man sich 
eines Tages doch, ob man nicht ein anderes Spiel laden 
soll. 


Aus diesem Grunde halte ich Adventures, die mit einer 
Punktwertung arbeiten und dem Spieler anzeigen, wie weit er 
noch von seinem endgültigen Ziel entfernt ist, für 
bedeutend reizvoller. 


Jedoch gilt es zu überlegen, auf welcher Basis die Wertung 
durchgeführt werden soll. Die übliche Version sieht für 
jeden gefundenen Schatz beziehungsweise für jede gelöste 
Teilaufgabe in einem Mission - Adventure eine gewisse 
Anzahl von Punkten vor. Neben der Angabe "Von 100 möglichen 
Punkten hast du 40° wird dem Spieler auch noch der 
prozentuale Anteil mitgeteilt, wodurch der Spielstand 
einfacher und genauer ausgewertet wird. Als Beispiel kann 
wieder einmal Scott Adams "Adventureland’ angeführt werden, 
dreizehn Schätze ergeben eine krumme Anzahl von Punkten, 
bei mehr als 50 Prozentpunkten weiß der Spieler jedoch, daß 
er die Hälfte der Strecke geschafft hat. 


Eine alternative Lösung wird dagegen jeden Schritt voran 
belohnen und auch nicht davor zurückschrecken, für jede 
geleistete Hilfe eine gewisse Anzahl von Punkten 
abzuziehen. Ebenso wird jeder Fehler mit Todesfolge negativ 
zu Buche schlagen, so daß im extremen Fall sogar ein 
negativer Wert erzielt werden kann. Doch ist es gerade 


dieser große Spielraum, der zu wiederholten 
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Lösungsversuchen reizt, denn es müßte doch möglich sein, 
mehr Punkte zu erzielen als der Freund, der das Ziel 
ebenfalls erreicht hat. 


Soll ein Adventure dermaßen ausgestattet werden, beginnt 
die Arbeit des Programmierers mit der Auswahl geeigneter 
Sequenzen, schließlich soll nicht bereits das einfache 
Auffinden eines Gegenstandes Punkte wert sein. Eine 
Belohnung darf der Spieler jedoch erwarten, wenn er 
gefährliche Monster ausgetrickst oder geheime Durchgänge 
gefunden hat. 


Bevor wir uns nun detailliert mit der praktischen 
Ausführung entsprechender Versionen befassen, vermitteln 
wir als erstes dem Treiber das Verständnis für den Befehl 
"SCORE: 


1500 IF LEFT$(eingabe$,3)<>"INV" THEN GO 
TO 1560 
1559 REM **krrKKeuneeerrerrekkrakk GCORE 
1560 IF LEFT$(eingabe$,3)<>"SCO" THEN GO 
TO 1600 


Anschließend führen wir zur Speicherung des erzielten 
Punktewertes die Variable WERTUNG ein. Dabei ist es 
wichtig, dafür Sorge zu tragen, daß sie bei jedem Neustart, 
somit auch beim Tode der Hauptfigur, auf Null gesetzt wird. 


Nur der erreichte Stand des Punktekontos sagt natürlich gar 
nichts aus, wenn er nicht in Beziehung zur maximalen 
Punktzahl steht, deshalb: 


170 wmax=20 :REM maximal moegliche Punkt 
zahl der Miniversion 
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171 wertung=O :REM bis jetzt O Punkte 
1561 PRINT"von";wmax; "Punkten hast Du";w 
ertung; "Punkte." 

1565 GOTO 1080 


Die Punkte erzielt der Spieler mit dem Aufnehmen der Gold- 
und Silberstücke. Ergänzen wir darum die betreffenden 


Zeilen in unserem Aktionsteil: 


6014 IF o=12 THEN PRINT ok$:ob(12)=-1:we 
rtung=wertung+10:GOTO 1080 

6017 IF o=17 AND fl(3) THEN PRINT ok$.:o 
b(17)=-1:wertung=wertung+10:GOTO 1080 


Leider kann ein Spieler, der es nur auf Punkte abgesehen 
hat, mit der derzeitigen Ausführung des Programmes beliebig 
hohe Summen erlangen. 


Erinnern wir uns, daß wir bei der Ausgestaltung der Aktion 
“Nimm’ darin übereingekommen waren, daß mit nehmen ein ’in 
die Hand nehmen’ gemeint war. Dies ermöglichte der 
Spielpraxis neben der Aufnahme von Gegenständen zwecks 
Aufbewahrung im Inventory auch ein Nehmen aus dem 
Inventory, um eine Aktion, beispielsweise das Öffnen einer 


Tür mittels eines Schlüssels, durchzuführen. 


Gerade diese Auslegung erweist sich nun als hinderlich, 
nichts hält den Spieler davon ab, mehrmals “Nimm 
Silbermuenzen’ einzugeben und mit dieser Eingabe jeweils 
zehn Punkte auf seinem Konto hinzuzuaddieren. 


Als Ausweg bieten sich einmal eine Änderung der allgemeinen 
Vorbedingung (Zeile 6000) wie auch die Einführung 
zusätzlicher Bedingungen in die Aktion selbst, an. 

Dieses Prinzip kennen wir bereits von der Ausführung der 


Aktion "Untersuche’, hier mußte eine ähnliche Regelung 
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verhindern, daß ein Gegenstand immer wieder an seinem 


Ursprungsort sichtbar wurde. 


6014 IF o=12 AND ob(o)=4 THEN PRINT ok$: 
ob(12)=-1:wertung=wertung+10:GOTO 1080 
6017 IF 0o=17 AND ob(o)=5 AND fl(3) THEN 
PRINT ok$:ob(17)=-1:wertung=wertung+t10:G 
OTO 1080 
6020 IF o=12 AND ob(o)=-1 THEN PRINT"Das 
Silber habe ich bereits !":GOTO 1080 
6021 IF 0=17 AND ob(o)=-1 THEN PRINT"Ich 
bin bereits im Besitz des Goldes !":GOTO 
1080 


Entscheiden Sie sich hingegen, die Aktion Nehmen’ immer 
nur als Bereicherung des Spielers aufzufassen, können Sie 
sich auf eine Verschärfung der Eingangsbedingung und 


Ausgabe eines entsprechenden Hinweises beschränken: 


6000 IF ob(n)<>spieler THEN GOTO 6900 
6998 IF ob(n)=spieler THEN PRINT"Das hab 
e ich doch schon !":GOTO 1080 


Für unsere eigenen, das heißt zumindest für die Adventures 
dieses Buches, wollen wir nur eine Punktierung der in den 
Besitz des Spielers gebrachten Schätze vornehmen. Dennoch 
werden wir nicht auf eine Bewertung der einzelnen Züge des 


Spielers verzichten müssen. 
Im Gegenteil, wir werden sogar noch einen Schritt weiter 


gehen und jeden einzelnen Spieler bewerten, ihm die 


erreichte Durchschnittswertung mitteilen. 


Als Grundlage für diese Auswertung bietet sich die Anzahl 
der benötigten Züge an. Ein erfahrener Abenteurer wird sich 
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nicht mit der Untersuchung jeder Kleinigkeit aufhalten, 
ebenso weiß er, aus typischen Hinweisen seinen Nutzen zu 
ziehen. 

Aus dieser Summe und den dabei erreichten Punkten berechnen 
wir einen Durchschnittswert und nehmen anhand dieses 
Quotienten die Beurteilung des Spielers vor. 


180 zug=O:wertung=O 


1080 PRINT: PRINT: zug=zug+1 


1561 PRINT"von" ;wmax; "Punkten hast Du in 
";zug; "Zuegen" 

1562 PRINT wertung; "Punkte erreicht !":P 
RINT"Das entspricht einem Schnitt von" 
1563 PRINT wertung/zug; "Punkten !*“ 

1565 GOTO 1080 


Auch das Kriterium für ein erfolgreiches Spielende 
definieren wir neu. Anstelle einer genau definierten 
Bedingung, die spielabhängig ist, vergleichen wir nun die 
erreichte Punktzahl mit dem maximal möglichen Wert. Ist 
die Differenz gleich Null, hat der Spieler die Aufgabe 
gelöst. 


Zweckmäßigerweise erfolgt dieser Test gleich zu Beginn 
eines jeden Zuges, bevor überhaupt irgendwelche Daten an 
den Spieler übermittelt werden. 


1085 IF wertung=wmax THEN GOTO 4800 
Falls Sie ebenfalls die Punktzahl als Kriterium verwenden, 
vergessen Sie bitte nicht, alle anderen Zeilen, die mit der 
gleichen Aufgabe beschäftigt sind, aus dem Programm zu 


entfernen (Zeilennummern im Bereich von 1331 bis 1389). 


Mit der konsequenten Einführung eines Punktesystems stellt 


sich uns zum Abschluß noch die Aufgabe, den Siegestitel an 
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diesen Aufbau anzupassen. Die ermittelten Daten sollten 
noch einmal zusammengefaßt werden, damit auch eine Benotung 


des Spielers stattfinden kann. 


Dazu wird es sich allerdings nicht vermeiden lassen, daß 
Sie, wenn das Adventure fertiggestellt ist und keinerlei 
Fehler mehr aufweist, einen kompletten Lauf durchspielen. 
Bei diesem Spiel verzichten Sie auf alle nicht unbedingt 
erforderlichen Eingaben und ermitteln die Anzahl der für 
einen Sieg mindestens erforderlichen Züge. Berechnen Sie 
das Verhältnis zwischen Punkte und notwendigen Eingaben und 
legen Sie diesen oder einen etwas geringeren Wert als 
Kennzeichen für ein sehr gutes Spiel zugrunde. 

wählen Sie entsprechend abgestufte Zahlen für schlechtere 
Beurteilungen. 


So kann die Benotung eines Spielverlaufes der Miniversion 
von Goldrausch etwa folgendermaßen vorgenommen werden: 


4800 CLS 

4805 endwertung=wertung/zug 

4810 PRINT"Herzlichen Glueckwunsch !* 
4815 PRINT"Sie haben die Ihnen gestellte 
Aufgabe" 

4820 PRINT"geloest." 

4825 PRINT"In *";zug;" Spielzuegen haben 
Sie pro Zug" 

4830 PRINT endwertung; " Punkte gemacht." 
4835 PRINT"Damit haben Sie ein *; 

4840 IF endwertung<.5 THEN m$(O)="misera 
bles"“ 

4845 IF endwertung>O.5 THEN m$(O)="maess 
iges" 

4850 IF endwertung>1.5 THEN m$(O)="sehr 
gutes" 

4855 IF endwertung>1.O THEN m$(O)="gutes 


4860 PRINT m$(O);*“ Ergebnis" 
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4865 PRINT"erzielt." 
4899 END 


Ein solchermaßen gestalteter Titel, entsprechen aufgemacht 
durch die Verwendung von Steuer-, Farb- und Grafikzeichen, 
wird manchen Abenteurer, der das Adventure endlich 
gemeistert hat, dazu veranlassen, es noch einmal zu 


spielen. 


Und daß alles nur, um als guter Spieler bezeichnet zu 


werden. 


Mit diesen Bemerkungen wäre das Thema °Score’ eigentlich 
beendet, wenn wir nicht noch eine technische Ergänzung 
machen müßten, deren Fehlen ansonsten die ganze schöne 
Planung zunichte machen kann und mit Sicherheit die Spieler 


unserer Programme verärgern würde. 


Vielleicht haben Sie bereits an unsere Save Game Routine ge- 
dacht, der natürlich auch ein Abspeichern und Laden der 
oben eingeführten Daten Wertung und Zug ermöglicht werden 
muß, wenn der Spieler nicht immer wieder mit null Punkten 


beginnen soll. 


1627 PRINT#9,wertung 
1628 PRINT#9, zug 


1727 INPUT#9,wertung 
1728 INPUT#9, zug 
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Alle bisher in diesem Kapitel gemachten Vorschläge dienten 
einzig und allein dem Ziel, den Komfort der Programme zu 


erhöhen. 


Ich glaube, daß Sie mit mir einer Meinung sind, wenn ich 
die Behauptung aufstelle, daß Adventures, die nach dem 
Konzept dieses Buches entwickelt wurden und sämtliche 
Extras enthalten, durchaus zur Oberklasse der 
Textadventures gezählt werden dürfen. Schließen wir daher 
die technische Entwicklung mit diesen Zeilen ab, und wenden 
wir uns der Frage zu, wie wir die Spiele selbst attraktiver 


und auch schwieriger machen können. 


Dabei werden wir es halten wie gewohnt, nach trockener 
Theorie folgen entsprechende Programmzeilen, die wiederum 


für unser Erstlingswerk Goldrausch gedacht sein werden. 


Die folgenden Seiten werden Ihnen insbesondere zeigen, wie 
Sie dem Spieler weitere Steine in den Weg legen können, so 
daß er tatsächlich die angebotenen Kurzbefehle Save und 
Load nutzen muß, um irgendwann einmal ans Ziel zu gelangen. 


Um ausreichend Platz für Monster, Falltüren und was es 
sonst noch gibt, zu haben, werden wir uns als nächstes 
wieder einmal mit der Geografie befassen und unsere 


Miniwelt zur Grundlage eines ausgewachsenen Adventures 
entwickeln. 


Falls Sie allerdings beabsichtigen, selber in den Genuß 
eines Adventurespieles zu kommen, sollten Sie, bevor Sie 
sich mit den nächsten Abschnitten befassen, alle noch 
fehlenden Programmzeilen eingeben oder besser noch, von 


jemand anderem eingeben lassen. 
Das komplette Listing von Goldrausch, in welchem Sie 


Beispiele zu allen Vorschlägen finden, entnehmen Sie bitte 
dem letzten Kapitel. 
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ORIENTIERUNG ODER DESORIENTIERUNG 


Es wurde bereits zu Beginn des Buches erwähnt, daß die 
meisten Abenteuerspiele sich innerhalb einer Welt von 
ungefähr vierzig Räumen abspielen. Dennoch entsteht der 
Eindruck einer viel größeren Welt, gab es da doch den 
riesigen Wald, einen Sumpf, eine unterirdische 


Höhlenlandschaft, ein Labyrinth und und und 


Tatsächlich sind jedoch gerade die so weiträumig 
erscheinenden Gebiete Gruppen von einigen wenigen Räumen, 
die auf so geschickte Art und Weise miteinander verbunden 
wurden, daß der Spieler meistens nicht einmal bemerkt, auf 


welche Tour er da geschickt wurde. 


Die Palette der Möglichkeiten reicht dabei vom einfachen 
Raum, der immer wieder in sich selbst mündet, bis zu einer 
Kette von Räumen, an deren Ende der Spieler wieder an den 


Beginn versetzt wird. 


Nutzen wir an dieser Stelle die in Goldrausch ähnlichen 
Räume 1 und 2, um gleich zu Spielbeginn ein weitläufiges 
Areal zur Verfügung zu haben. 

Lassen Sie Raum 1 win nördlicher und westlicher Richtung 
wieder in sich selbst zurückmünden, verfahren Sie 
gleichermaßen mit Raum 2, und versuchen Sie dann, sich den 
Spieler vorzustellen, der in Raum 1 beginnt und nach 
Westen wandert. Woher soll er wissen, daß er sich nach 
jeder Eingabe immer noch im gleichen Teil des Waldes 
befindet ? 

Falls er nicht das Glück hat, das Spiel mit der Eingabe °O° 
zu beginnen, wird er eine Reihe von Eingaben benötigen, um 
den Weg aus dem Wald zu finden, was ihm einen guten Schnitt 


bei der Punktwertung bereits verdirbt. 


501 ... 1,1,1,2,0,0 
502 ... 2,2,3,1,0,0 


Noch schwieriger wird sich die Suche nach dem rechten Weg 
gestalten, wenn der südliche Ausgang von Raum 2 den Spieler 
nicht wieder in Raum 2 gehen, sondern ihn Raum 1 betreten 
läßt. 


501: 52. 1,,151.42,0,0 
502 ... 2,1,1,3,0,0 
Starten Sie das Programm, und lassen Sie sich von der 


Wirkung dieser kleinen Änderung überraschen. 


Mit drei Räumen lassen sich auf diese Art und Weise bereits 
kleine Labyrinthe erstellen, wenn die Verbindungen wahllos, 
ohne Bezug zu einem Kompaß, ausgeführt werden, und nur ein 


einziger Zu- wie auch Abgang existieren. 


Die übliche, bislang auch von uns verwandte 
Verbindungstechnik hält sich an die realen, durch 
Himmelsrichtungen vorgegebenen Wege. Dabei entsteht eine 
Welt, die eine problemlose Identifizierung der Räume und, 
besonders wenn der Spieler eine entsprechende Karte 


anfertigt, Orientierung gestattet. 


Kleine Sprünge über einige Räume hinweg machen dieses 
Konzept jedoch schnell unbrauchbar. 

Stellen wir uns drei hintereinander liegende Räume vor, die 
alle mit der Beschreibung "Ich bin in einer großen Höhle’ 
aufwarten. 

Ein Spieler, der von Westen in Höhle 1 gelangt, wird, da er 
nichts besonderes sieht, zunächst mit großen Schritten die 
nähere Umgebung kennenlernen wollen und vermutlich seine 
einmal eingeschlagene Richtung nicht ändern, da es ihm ein 


Bedürfnis ist, möglichst einfach den Weg zurückzufinden. 
Nach Durchqueren von Raum 2 und 3 gelangt er wiederum in 


den ersten Raum, was er ohne entsprechende Handlungen aber 


unmöglich feststellen kann. 
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Durch Verwendung dieser Spungtechnik ist es möglich, ohne 
großen Aufwand riesig erscheinende Labyrinthe zu erstellen. 
Sechs Räume sind völlig ausreichend, dem Spieler das Finden 
des richtigen Weges fast unmöglich zu machen. 

Selbst der Programmierer wird während der Testphase auf 


ausreichende Schwierigkeiten treffen ! 


Denn selbst die Anfertigung einer Karte wird bei dieser 
Arbeitsweise zum Problem, nicht jedoch bei einem 
alternativem Verfahren, das an dieser Stelle auch kurz 


vorgestellt werden soll. 


Eine Vorgehensweise nach dieser Methode sieht zunächst ein 
maßstabsgerecht auf vorzugsweise kariertem Papier 
erstelltes Labyrinth vor, wie Sie es häufig auch in 
Rätselecken der verschiendensten Zeitschriften finden. 

Bei der anschließenden Programmierung entspricht dabei 
jedes Kästchen einem Raum, wodurch der beträchtliche 
Aufwand bereits abzusehen ist. 

Ebenso leicht ist es einzusehen, daß der Spieler während 
seiner Exkursion mit jedem neuen Raum ein neues Kästchen 


nimmt, die Wände markiert und die Durchgänge blank läßt. 


Nehmen Sie stattdessen sechs Räume, von denen Sie jeweils 
einen als Eingangs-, als Sammel- und als Ausgangsraum 
festlegen. Dabei ist es für den Eingangsraum wichtig, daß 
er allein und auch nur in einer einzigen Richtung wieder 
zurück an den zuletzt besuchten Ort führt. 

Entsprechendes gilt für den letzten Raum, nur ein einziger 
Durchgang erlaubt das Betreten von Neuland, alle anderen 
Wege müssen ins Labyrinth zurückführen. 

Dem Sammelraum kommt dabei eine zentrale Funktion zu. Von 
jedem Raum des Labyrinthes führen zwei oder mehr Wege in 
diesen Raum, alle Ausgänge bringen den Spieler jedoch 
wieder in den ersten oder auch zweiten Raum des Irrgartens. 


Um die Sache noch zu komplizieren, werden die Ausgänge des 


Raumes, der verbindungsmäßig vor dem letzten Raum liegt, 


noch in der Art angelegt, daß nur ein einziger Weg in den 
letzten, alle anderen aber in den Sammel- oder in den 
ersten Raum führen. 

Es erübrigt sich zu sagen, daß für alle Räume eine 
identische Beschreibung vorgesehen wird und daß möglichst 


alle sechs Richtungen benutzt werden. 


Der Spieler wird nun fast soviel Glück wie ein Lottosieger 
benötigen, um das Labyrinth verlassen zu können: ehe er im 
vorletzten Raum aus sechs Wegen den einzig richtigen 
findet, gleiches gilt für den letzten Raum. Dabei wirft ihn 
Jeder Fehler wieder in einen anderen Raum zurück, welcher 


wiederum sechs Möglichkeiten bietet. 


Versuchen Sie, sich im folgenden Labyrinth zurechtzufinden 
- obwohl Sie selbst die Verbindungen erst kurze Zeit zuvor 


eingegeben haben, wird es Ihnen schwer fallen: 
110 ar=14 


507 DATA "am Eingangsstollen",7,0,1,5,0, 
[6) 

519 DATA auf einem kurvenreichen Gang,8, 
0,0,5,0,0 

524 DATA auf einem kurvenreichen Gang, 10 
‚7,8,8,8,8 

525 DATA auf einem kurvenreichen Gang, 11 
‚8,8,13,11,8 

526 DATA auf einem kurvenreichen Gang, 11 
,8,10,11,11,8 

527 DATA auf einem kurvenreichen Gang,9, 
8,10,11,10,8 

528 DATA auf einem kurvenreichen Gang,ß8, 
10,10,11,0,0 

529 DATA auf einem kurvenreichen Gang,O, 
11,12,115,0,0 
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ORTSWECHSEL 


Außer Irrgärten in beliebiger Größe stehen uns weitere 


Mittel zur Verfügung, um dem Spieler die Orientierung zu 
erschweren. 


Sehr großer Beliebtheit erfreuen sich dabei plötzliche 
Transfers der Hauptperson in einen anderen Raum, was dem 
Abenteurer durch Mitteilungen wie ‘Alles um mich herum 
dreht sich’ deutlich gemacht wird. 

Doch ist auch diese Nachricht bestenfalls als freundliche 
Geste des Programmierers aufzufassen, und nicht als Pflicht 
zu verstehen. 


Auslöser der Aktionen solcher Art sind meist magische 
Gegenstände, zu deren Bedienung seit Aladin’s Wunderlampe 
ein kräftiges Reiben erforderlich ist. 

Aber auch Zaubersprüche und -tränke verfehlen ihre Wirkung 
nicht, weshalb dem Spieler eines Adventureprogrammes nur 
geraten werden kann, allergrößte Vorsicht walten zu lassen, 
wenn in irgendeinem Zusammenhang das Wort Magie’ fallen 
sollte. 


Programmtechnisch werfen diese Ortswechsel bei Verwendung 
unseres Adventure - Systems keinerlei Schwierigkeiten auf, 
denn es reicht aus, der Variablen SP die Nummer des neuen 
Raumes zuzuweisen. 


"Reibe Lampe’ könnte daher folgendermaßen implementiert 
werden ( Lampe = Objekt 3 ): 


xıxx IF 0=3 AND ob(3)=-1 THEN PRINT"Die 
Welt dreht sich ...":spieler=9:GOTO 1080 


Wenn dann auch noch die Raumbeschreibung von 9 der des 


alten Raumes entspricht, dürfte die Verwirrung des Spielers 


nach dem nächsten Zug unausweichlich bleiben. Dies gilt 
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besonders für den Fall, wenn die Meldung fortfällt oder ein 


anderer Text gewählt wird: 


xxxx IF 0o=3 AND ob(3)=-1 THEN PRINT ok$; 
“" - nichts passiert." :spieler=9:GOTO 108 
[0] 


Eine weitere Steigerung des Schwierigkeitsgrades bedeutet 
es, wenn der Ortswechsel des Spielers nicht einmal mehr von 
den Manipulationen irgendwelcher Gegenstände abhängig ist, 
sondern einzig und allein vom Zufall gesteuert wird. 


Wir können mit der Konstruktion unseres Adventureprogrammes 
vorschreiben, daß das Durchqueren eines bestimmten Raumes 
unumgänglich ist. 

Entspricht der Inhalt von SPIELER der Nummer dieses Raumes, 
wird eine zufällige Entscheidung darüber getroffen, ob der 
Spieler versetzt wird oder ob ihm zwecks Ausführung 
weiterer Handlungen ein Aufenthalt gestattet wird. 


Welcher Spieler, der nach erfolgter Durchquerung eines 
Irrgartens und anschließendem Betreten eines scheinbar 
harmlosen Raumes mehr als einmal wieder in das Labyrinth 
zurückgeworfen wurde, wird das Risiko einer Wiederholung 


dieses Vorganges eingehen ? 


Wieder zeigt ein Ausschnitt aus dem Adventure Goldrausch, 


wie dieses Handicap eingebaut werden kann: 


110 ar=16 


519 DATA auf einem kurvenreichen Gang,ß, 


0,15,5,0,0 
521 DATA in eimen Stollen, 11,11,11,7,11, 
[e) 


522 DATA in einem Felsendom,0,15,0,0,0,0 


1340 IF spieler=15 THEN IF RND(1)>.7 THE 
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N spieler=16 


Versetzt in den kritischen Raum wird der Spieler durch 
Verlassen des Vorraumes zum Labyrinth, zur Zeit Raum acht, 


ein kurvenreicher Gang, in westlicher Richtung. 


Aus diesem Raum kann er sich sofort wieder zurückziehen, 
oder er kann versuchen, herauszufinden, was die weitere 
Umgebung bringt. 


Wenn der Zufall es will - und ob er will, legen wir mit 
dem Vergleichswert in der RND - Funktion fest -, gelangt er 
in den nächsten Raum (16), wenn nicht, findet er sich in 
einem Raum des Labyrinthes (Sammelraum 11) wieder, welcher 


ihm keine Anhaltspunkte zur Orientierung bietet. 


War ihm das Glück nicht hold, wird er nach einigen 
Versuchen die Entscheidung treffen, daß es sich um einen 
weiteren Zugang des Irrgartens handelt, diesen Raum fortan 


meiden und somit einen Teil des Schatzes niemals finden. 
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VERSTECKTE ZUGÄNGE 


können dem Spieler mindestens ebenso große Schwierigkeiten 
bereiten. Selbst wenn in der Zeile Ich kann nach ...’ nur 
die Richtungen Osten und Westen genannt werden, muß deshalb 


die Welt im Norden nicht zu Ende sein. 


Viele Spieler, soweit es sich um Anfänger handelt sogar die 
meisten, werden sich auf die gemachten Angaben verlassen 
und die Höhle niemals betreten. Denn dadurch, daß eine 
Untersuchung derselben, wie auch andere Aktionen, von der 
augenblicklichen Position möglich sind, wird jeder Verdacht 


auf eine großangelegte Höhlenwelt sofort zerstreut. 


Erst eine Eingabe wie Betrete Höhle’ führt zu neuen 
Erkenntnissen: 
130 av=7 


209 DATA betrete 


2200 ON verbnummer GOTO 5000,6000,7000,8 
000, 9000, 10000, 13000 


13010 IF 0o=13 AND spieler=5 THEN spieler 
=12:PRINT ok$:GOTO 1080 


ACHTUNG: Bevor Sie sich von der Funktion 
dieser Zeilen überzeugen, ist es 
erforderlich alle weiteren Räume 
einzugeben, wie auch die Verbindungen 
der bisher vorhandenen zu ändern (Zeilen 
500 - 700). 

Ebenso muß Zeile 110 an die neue 
Situation angepaßt werden. 
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Das schöne an dieser Realisation ist, daß der Zugang nicht 
einmal getarnt wird, im Gegensatz zu einer anderen Art der 
Ausführung, welche sich gleichfalls, zumindest seitens der 


Adventureproduzenten, großer Beliebtheit erfreut. 


Aufgabe des Spielers ist es nun nicht mehr, nur einen 
versteckten Raum aufzuspüren und diesen mittels richtig 
gewählter Worte zu betreten, sondern er muß in der Lage 
sein, einen Plan zu entwickeln, wie ein begehbarer Weg 
dorthin konstruiert werden kann. 


Im einfachsten Fall handelt es sich um eine Tür, die 
zunächst verschlossen ist. Eine entsprechende Anzeige durch 
den Treiber wird sowohl durch die Objektbeschreibungen wie 
auch die Daten der für diesen Raum geltenden Zeile der 


Richtungstabelle gewährleistet: 


xxxx DATA eine Tuer,tuer, 1 


REM RAUM 1 
xxxx DATA in einer Zelle,0,0,0,0,0,0 


Dieses übliche Verfahren sieht nun vor, daß der Spieler bei 
einer Untersuchung der Zelle die Tür, mit einem massivem 
Schloß versehen, entdeckt. 


“Oeffne Tuer’ bzw. "Oeffne Schloß’ weisen auf den fehlenden 
Schlüssel hin, wodurch der Spieler sich veranlaßt fühlt, 
alle weiteren Einrichtungsgegenstände des Raumes auf ihre 


Tauglichkeit zur Öffnung des Schlosses hin zu überprüfen. 


Bei den meisten Adventures reicht die bloße Anwesenheit des 
Schlüssels im Inventory aus, die übrigen verlangen auch 
noch eine zweckentsprechende Benutzung des Schlüssels, eine 
Eigenschaft, die wir uns nun dank unserer Praxis erklären 


können. 


während die einen sich mit einem einfachen Test begnügen 
(ob(o)=-1), arbeiten die anderen, aufwendigeren Programme 


zusätzlich mit Flags. 


Wie auch immer, steht die Tür erst offen, taucht eine 
entsprechende Richtungsangabe innerhalb der Kopfzeile auf, 
worauf wir auf eine Manipulation der für diesen Raum 
zuständigen Zeile des Feldes DURCHGANG (,) schließen. 


xxxx IF o=y AND ob(z)=-1 AND spieler=r T 
HEN PRINT ok$:durchgang(r,ri)=nr:GOTO 10 
80 


y = Objektnummer Tür 

z = Objektnummer Schlüssel 

r = augenblicklicher Raum 

ri= betreffende Himmelsrichtung 
nr= neu zu erreichender Raum 


Obige Zeile, eingesetzt in den für die Behandlung des 
Verbes °Oeffne’ vorgesehenen Programmteil, vergewissert 
sich davon, daß der Spieler im Besitz des richtigen 
Schlüssels (z) ist und vor der richtigen Tür steht (r). 
Anschließend werden die Angaben in der Richtungstabelle 


entsprechend geändert. 


LIMITIERUNGEN UND ZÄHLER 


halte ich für besonders geeignet, um ein Adventure aus der 
Masse der übrigen hervorzuheben. Vermitteln doch besonders 
sie jedem Abenteuerprogramm die Faszination der Realität, 
und gestalten sie einige Abschnitte des Adventures zu 
wahren Denksportaufgaben. 


Ihr Aufgabenbereich ist dabei weniger in einer aktiven 


Spielbeteiligung zu sehen, als vielmehr in einer 
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Hintergrundkontrolle der Rahmenbedingungen, in die das 


Spiel eingebettet wird. 


An erster Stelle muß hier wohl die Einschränkung des 
Inventories genannt werden, da ein Gewichtslimit inzwischen 
zum guten Ton dieser Computerspiele gehört. 

Verständlich - erstens wirkt es unglaubhaft, wenn ein 
einzelner Mensch, wir gehen davon aus, daß es sich nicht um 
ein Supermann - Adventure handelt, beliebig viele Objekte 
mit sich herumschleppen kann, und zweitens kann das Spiel 
auch zu einfach werden, wenn stets alle 


Handlungsgegenstände sogleich zur Verfügung stehen. 


Technisch gesehen überwacht ein Zähler die Anzahl der 
Gepäckstücke, die der Spieler mit sich führt, und ist die 
vom Programmierer vorgesehene Tragkraft der Hauptperson 
ausgelastet, wird die Aufnahme weiterer Gegenstände 


verweigert. 


Es muß also vor Beginn aller Handlungen die maximal 


erlaubte Stückzahl festgelegt werden: 


185 imax=5 


Die Inventory - Routine lassen wir ansonsten wie sie ist, 
denn es ist der Vorgang des Nehmens, dem wir erhöhte 
Aufmerksamkeit schenken müssen. 

Allen Aktionen mit dem Verb ‘Nimm wird nun eine weitere 
gemeinsame Voraussetzung zugrunde gelegt, weshalb sich zum 
Zweiten Male eine Änderung der Zeile 6000 anbietet. 

Leider sieht diese Planung nicht nur eine Umstrukturierung 
des betreffenden Blockes vor, sondern sie macht auch 
unseren Traum eines universell einsetzbaren Treibers mit 


allen Funktionen und Restriktionen zunichte. 
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Aus diesem Grunde ändern wir die Sprungtabelle in Zeile 
2200 und führen den erforderlichen Test vor Beginn der 


eigentlichen Befehlsausführung durch: 


2200 ON verbnummer GOTO 5000,2210,7000,8 
000, 9000, 10000 

2201 REM ******s<xx* TEST OB PLATZ IM INV 
2210 anzahl=0O 

2220 FOR i=1 TO ao 

2230 IF ob(I)=-1 THEN anzahl=anzahl+1 
2240 IF anzahl=imax THEN PRINT"Nein Dank 


e. - Ich trage schon genug !":GOTO 1080 
2250 NEXT i 
2260 GOTO 6000 : REM AUSFUEHRUNG NIMM 


2270 REM Le 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 ENDE INVTEST 


während diesem Zähler eine passive Rolle zukommt, und die 
Routine nur im Rahmen einer genau definierten Aktion 
aufgerufen wird, beschneiden andere Hintergrundkontrollen 
den Spieler nicht nur in der Freiheit seiner Handlungen, 
sondern können sogar zum Spielende führen. 


Diese Behauptung gilt insbesondere für die folgenden 


Programmzeilen, deren Einbau in unser System dem Tüpfelchen 
auf dem °i’° entspricht. 
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AVAILABLE LIGHT 


ist die gebräuchliche Bezeichnung für eine bei einigen 
Adventureprogrammen anzutreffende Eigenart, die mit 
zusätzlichen Schwierigkeiten die Spieler zur Verzweiflung 


treiben kann. 


Für Adventurespieler aus Passion scheinen die üblichen 
Hindernisse nicht ausreichend zu sein, und da 
bekanntermaßen nichts schwierieger ist, als das Leben in 
der Alltagswelt, muß zur Beseitigung dieses untragbaren 
Zustandes nichts weiter getan werden, als eben diese Welt 
noch perfekter nachzuahmen. 


Ohne "verfügbares Licht” stehen wir im Dunkeln und werden 
nur schwerlich etwas sehen, geschweige denn präzise handeln 
können. Kommt dann noch die Tatsache hinzu, daß wir uns 
nicht in unserem Schlafgemach, wo dieser Zustand weitaus 
weniger hinderlich wäre, sondern in einer naturbelassenen, 
wilden und zerklüfteten Felsenlandschaft befinden, wird 


jeder weitere Schritt zu einem tödlichen Risiko. 


Das kommt uns Adventureproduzenten natürlich sehr gelegen, 
und beim Einbau der nächsten Zeilen in unsere Adventures 
bereitet uns die Vorstellung der Reaktionen unserer 
Freunde, denen wir unser Werk selbstverständlich sofort 
nach Fertigstellung präsentieren wollen, eine zusätzliche 
Freude. 


Glücklicherweise eignet sich jedes Abenteuerprogramm für 
einen Einbau dieses Hindernisses. Oft stehen weiträumige 
Höhlen oder unterirdische Gangsysteme zur Verfügung, andere 
Programme spielen sich in einem Haus ab; alles Orte, die 
einer künstlichen Beleuchtung bedürfen. Sollte tatsächlich 
einmal die Situation eintreten, daß die ganze Handlung 
unter freiem Himmel abläuft, muß eben der Lauf der Sonne 


nachvollzogen werden. 
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Um einen Sonnenauf- und -untergang realisieren zu können, 


reicht der Einsatz eines weiteren Zählers. 


Zunächst legen wir fest, wie lange der Tag (die Nacht) 
dauern soll, wobei wir uns der Eingaben des Spielers als 
Zeiteinheit bedienen. 

Nehmen wir an, 50 Züge nach Sonnenaufgang beginnt jeweils 
die Nacht. Dieser Wert wird ebenso typisch für jedes 
einzelne Adventure sein, wie die Anzahl der erreichbaren 
Punkte, weshalb die entsprechende Variable LM (Lichtmenge) 


gleichfalls bei Programmstart initialisiert wird: 


186 1m=50:licht=-1 


Ihr nun schon recht umfangreiches Wissen zum Thema 
Adventure erlaubt es Ihnen, die Variable LICHT als 
Signalschalter zu interpretieren, und zwar in dem Sinne, 
daß eine -1 eine für alle Handlungen ausreichende 
Lichtmenge, O aber absolute Dunkelheit bedeutet. 


Die beiden möglichen Stellungen dieses Schalters zeigen der 
Ausgaberoutine unseres Treibers, ob der Spieler etwas sehen 


kann, oder ob er im Dunkeln tappen muß: 


1131 REM LE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 KEIN LICHT 
1132 IF licht THEN 1140 

1133 PRINT"Ich weiss nicht genau, wo ich 
bin." 

1134 PRINT"Es ist zu dunkel, um etwas zu 
sehen." 

1135 PRINT: PRINT"Auch die Ausgaenge seh 


e ich nicht mehr.":GOTO 1330 
Nach Zeile 1132 werden die bislang benutzten 


Ausgaberoutinen abgearbeitet werden, falls Licht vorhanden 


ist. 
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Trifft das Gegenteil zu, informieren die Zeilen 1133 bis 
1135 auf die gewohnte Art und Weise darüber, daß es nichts 
zu sehen gibt. 

Mit dem Drucken der Trennungslinie kann der Programmverlauf 


durch die üblichen Zeilen fortgesetzt werden. 


Ansonsten müssen wir nur noch für die jeweils richtige 
Stellung des Schalters LICHT sorgen, was nach Ablauf der 
mit LM festgelegten Anzahl von Spielzügen zu geschehen hat. 


Der Zugzähler kann zu dieser Vergleichoperation nicht 
herangezogen werden, weil mit einem Tag- Nachtwechsel auch 
ein Rücksetzen des Zählers auf Null erforderlich wird; 


führen wir daher die Variable Lichtwechsel (LW) ein: 


186 1m=50 : licht=-1 : 1w=0 


1080 zug=zug+1 : 1lw=1w+1 
1084 IF lw=lm THEN GOSUB 3000 


2999 REM *** UNTERPROGRAMM LICHTSCHALTER 
3000 IF licht=-1 THEN licht=0:G0TO 3020 
3010 IF licht=O THEN licht=-1 

3020 1lw=O 

3030 RETURN 


Zu Beginn einer neuen Eingaberunde wird überprüft, ob die 
vorgesehene Zeitdauer (LM) einer Periode erreicht ist. Wenn 
ja, wird das Unterprogramm Schalter aufgerufen und der 
Zustand von LICHT gewechselt. Mehr ist nicht erforderlich, 
den Abenteurer einem Tag und Nachtwechsel auszusetzen, was 


die Suche nach einer Lampe erforderlich machen kann. 


Für Goldrausch wollen wir uns jedoch nicht mit der 
Simulation des Sonnenlaufes begnügen, sondern machen das 


Geschehen vom Besitz einer Lampe abhängig. 


Dadurch stellen wir dem Spieler die zusätzliche Aufgabe, 
immer genügend Brennstoff für die Lichtquelle 
bereitzuhalten. 

In unserem Falle wird es sich dabei um Öl handeln, welches 
er in der Höhle des Bären finden kann. Dort füllt er es in 
die Flasche, die er zuvor wieder an sich genommen haben 
muß, und anschließend in die Lampe. 

Jedes Füllen setzt dabei den Zähler Lichtwechsel wieder auf 


den Maximalwert. 


Um die Sache zusätzlich zu komplizieren, wird die Laterne, 
zu dem Zeitpunkt, zu dem der Spieler sie findet, noch einen 
Rest Öl enthalten. Betritt er dann, ohne die Lampe 
nachzufüllen, die Tiefen der Mine, ist er unrettbar 
verloren. Ein weiterer Schritt, und der Abenteurer stolpert 
und bricht sich das Genick. 


Da wir für das restliche Territorium keine Dunkelheit 
vorgesehen haben, besteht der erste Schritt zur 
Verwirklichung dieser Version in einer Änderung der 
Startwerte. 

Eine Umschaltung erfolgt immer nur dann, wenn der Zähler 
Lichtwechsel gleich dem Inhalt von Lichtmenge ist. 


Um dem Spieler zunächst jedoch eine fast unbegrenzte Anzahl 
von Spielzügen zu erlauben, legen wir LM mit Null und LW 
mit eins fest, und stellen dadurch sicher, daß LW nie 
gleich LM sein kann: 


186 lAm=O : licht=-1 : 1w=1 : 11=20 
Li kommt hinzu, weil die noch vorhandene Füllung geringer 
sein soll, als die später erfolgenden Nachfüllungen. Die 


übrigen Zeilen können vom vorangegangenen Beispiel 


übernommen werden. 
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Aktiviert wird diese Routine erst mit dem ersten Zünden der 
Lampe. Die Ausführung dieses Befehles wird neben der 


Ausgabe von °O0.K.° auch die Zähler korrekt initialisieren: 


11030 IF o=23 AND ob(23)=-1 THEN PRINT"O 
.K. - Die Lampe brennt." :1m=11:1w=1:GOTO 
1080 


Für die nächsten zwanzig Aktionen steht dem Spieler nun 
ausreichend Licht zur Verfügung. Mit dem Nachfüllen der 
Lampe kann er diesen Wert auf fünfzig vergrößern: 


12010 IF o=23 AND ob(23)=-1 AND fl(6) TH 
EN 11=50:1m=50:1w=1:PRINT ok$:GOTO 1080 


Um ein Nachfüllen des Brennstoffvorrates sowohl bei 
brennender als auch bei gelöschter Flamme zu ermöglichen, 
weisen wir der Variablen Li, wie auch LM, die Anzahl der 


nun durchführbaren Spielzüge zu. 


Für den Fall, daß der Spieler sich an die Oberfläche begibt 
oder aus anderen Gründen die Lampe löscht, müssen wir den 


augenblicklichen Tankinhalt’ retten: 


210 DATA loesche 

2200 ... 14000 

14000 IF o=23 AND OB(o)=-1 THEN 11=1m-1w 
:PRINT ok$:GOTO 1080 


Selbstverständlich müssen diese Werte auch mit dem 


Abspeichern eines Spieles gerettet werden: 


1625 PRINT#9,spieler:PRINT#9,11:PRINT#9, 
lm:PRINT#9,1w 


1725 INPUT#9,spieler:INPUT#9,11:INPUT#9, 
lm: INPUT#9, 1w 
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Damit haben wir sichergestellt, daß die Sache mit dem Licht 


auch wirklich ihren vorgezeichneten Verlauf nehmen muß. 


Um dem Spieler aber die plötzliche, unangenehme 
Überraschung des unabwendbaren Endes zu ersparen, denn 
sollte er sich in den Tiefen der Erde befinden, während ihm 
das Öl ausgeht, wird er seine Haut nicht mehr retten 


können, ist eine Warnung fairerweise angebracht. 


Folgende Zeile wird ihn kurz vor Brennschluß der Lampe von 


der drohenden Gefahr unterrichten: 


1350 IF lAm-l1w<15 THEN PRINT"Das Licht de 
r Lampe wird schwaecher."“ 


Ich hoffe, die vorangegangenen Beispiele werden Ihnen bei 
der Verwirklichung Ihrer eigenen Ideen helfen. 

So wird es Ihnen sicherlich nicht schwerfallen, in Ihren 
Programmen beispielsweise dafür Sorge zu tragen, daß der 
Spieler rechtzeitig Nahrung zu sich nehmen muß, damit er 
weiterhin Dinge in die Hand nehmen und Aktionen durchführen 


kann. 


Ebenso können Sie mittels eines weiteren Zählers Reaktionen 


von der verstrichenen Zeit abhängig machen. 
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ZUFÄLLE 


Erdbeben, die eine Gesteinslawine auslösen, plötzlich 
auftauchende Monster, die natürlichen Feinde der 
Hauptperson im Adventure oder auch sich im unpassendem 
Moment öffnende Falltüren sind weitere, allseits beliebte 


Methoden, um den Spieler vom rechten Wege abzubringen. 


Fast immer wird das Auftreten dieser Ereignisse vom Zufall 
gesteuert und das sogar in doppelter Hinsicht. 


Ein Ungeheuer kann einen bestimmten Raum beleben und dem 
Spieler den Kopf abreißen: 


1360 IF spieler=10 THEN m$(O)="Diesmal h 
atte ich keinen Honig fuer den Baeren.*: 
GOTO 4500 


Genausogut kann die Falle aber nur manchmal zuschnappen und 


wird zu anderen Zeiten dem Spieler kein Haar krümmen: 


1370 IF spieler=20 AND RND(1)>.8 THEN m$ 
(O)="Der Boden brach unter mir ein.":GOT 
oO 4500 


Die dritte Version stellt eine Kombination der bereits 
vorgestellten Elemente dar. 

Grundsätzlich wird man auch von einer Beweglichkeit der 
Feinde des Abenteurers ausgehen können, weshalb auch dem 
Monster ein gewisser Abschnitt der Adventurewelt als 


Spielwiese zur Verfügung gestellt werden sollte: 


1380 IF (spieler=13 OR spieler=14 OR spi 
eler=16) AND RND(1)>.8 THEN m$(O)="Wiede 
r der Baer.":GOTO 4500 
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VOM TEXT- ZUM GRAFIKADVENTURE 


Neu vorgestellte Adventureprogramme weisen neben den 
besprochenen Features meist auch eine hervorragende 
optische Präsentation auf. Für jeden Raum des Adventures 
existiert ein Bild, welches den Spieler mehr oder weniger 
gut über spielwichtige Dinge und deren Umfeld informiert. 


Zur prorammtechnischen Ausführung dieser Grafikadventures 


stehen dem Programmierer prinzipiell drei Wege offen. 


Zunächst kann er auf der Diskette für jeden Raum und jeden 
Gegenstand eine entsprechende Grafik speichern und diese 
bei Bedarf in den Bildschirmspeicher des Computers laden. 
Dieser Weg wird heutzutage bei fast allen Grafikadventures 
eingeschlagen, einerseits weil sich mittels 
Videodigitalisierer oder anderer Hilfsmittel, wie 
beispielsweise einem Grafiktablett großartige Ergebnisse 
erzielen lassen, andererseits besteht der zusätzliche 
Programmieraufwand nur aus einem einzigen Unterprogramm, 
welches abhängig von der Raumnummer (SPIELER) eine Datei 
laden muß, und daß im günstigsten Fall aus einer einzigen 
Zeile besteht. 

Natürlich wird entsprechend viel Platz auf der Diskette 
benötigt (jetzt wissen Sie, warum manche Adventures über 
drei und mehr Disketten gehen), wie der Spieler auch die 
Ladezeit geduldig ertragen muß. 


Die zweite Methode arbeitet mit einem Grafikinterpreter, 
einem Programmteil des Adventures, welcher über einen Line- 
und Paintbefehl verfügt, und dem jeweils die Daten aller 
Umrisse und Farben zur Verfügung gestellt werden müssen. 

Dieses Verfahren geht am sparsamsten mit dem zur Verfügung 
stehendem Speicherplatz um, denn für jeden Punkt ist im 
allgemeinen nur ein Byte erforderlich, und wenn die Linien 
als Linienzüge ausgeführt werden, reicht zu ihrer 


Speicherung ebenfalls jeweils eine Speicherstelle. 
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Übrigens arbeitet der im folgenden vorgestellte Grafik - 
Programmer nach diesem Prinzip, wenn er auf Druck von Z ein 


Bild neu zeichnet. 


Das dritte Verfahren schließlich besticht durch seine 
Schnelligkeit, denn jede für den Aufbau der Grafik 
notwendige Anweisung wird direkt ausgeführt. Voraussetzung 
ist natürlich, daß das Betriebssystem des Computers 
entsprechende Befehle zur Verfügung stellt und daß der 
Arbeitspeicher die erforderlichen Anweisungen aufnehmen 


kann. 


Bei der weiteren Entwicklung unserer Adventures wollen wir 
uns auf die letzten beiden Methoden beschränken, denn zu 
deren Anwendung bedürfen wir weder technischer Hilfsmittel 


noch aufwendiger Unterprogramme. 


Beide Lösungen erfordern natürlich einige kleine Änderungen 
an unserem Treiberprogramm, denn die Ausgaben werden nun an 
anderen Stellen des Bildschirmes gemacht werden müssen. 


Unser nächster Schritt besteht nun darin, alle 
Bildschirmausgaben derart umzudirigieren, daß nur noch 
einige der untersten Zeilen benutzt werden. 

Glücklicherweise kommmen uns auch hier die hervorragenden 
Eigenschaften des Locomotive Basic entgegen, so daß wir uns 


umständliche Änderungen unseres Treibers ersparen können. 


Zwei Fenster, und zwar Window O für die üblichen Ausgaben 
und Window 1 für den Grafikbereich, sind völlig 
ausreichend; es ist nicht notwendig, sämtliche Print - 
Befehle zu ändern, da #0 dem Standardstream entspricht und 
somit alle Ausgaben umdirigiert werden. 


1050 WINDOW#1,1,40,1,16 


1070 WINDOW#0,1,40,17,25:PAPER 2:INK 2,1 
4:CLS#O 
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DER BILDAUFBAU 


Den Aufbau der jeweiligen Grafik überlassen Sie einigen 
Unterprogrammen, die vom Treiber aus aufgerufen werden. 

Allerdings gilt es zu beachten, daß diese Druckroutine 
nicht nach jeder Eingabe des Spielers aufgerufen werden 
muß, denn warum sollte nach jeder Aktion innerhalb eines 


Raumes dieser neu gezeichnet werden ? 


Führen wir daher eine weitere Kontrollvariable ein: 


1080 PRINT:IF alt<>spieler THEN GOSUB 
30000 
1140 PRINT"Ich bin ";:alt=spieler 


Muß ein Raum auf dem Bildschirm dargestellt werden, so 
wird der Block mit den Grafikroutinen angesprungen. 
Anschließend wird dessen Nummer an die Variable ALT 
übergeben. Entfernt der Spieler sich dann vom Ort des 
Geschehens, so ist die Bedingung in Zeile 1080 erfüllt und 
es wird wiederum Zeile 30000 aufgerufen, welche anhand der 
Raumnummer die richtige Zeichenroutine wählt: 


30000 ON spieler GOSUB 31000, 32000, 330 
00 


30010 RETURN 


31000 REM RAUM 1 ZEICHNEN 
31999 RETURN 


32000 REM RAUM 2 ZEICHNEN 
31999 RETURN 


Anschließend wird der Programmlauf mit der Ausgabe der 


Objektbeschreibungen in gewohnter Weise fortgesetzt. 
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Sollten Sie es nun vorziehen, den Aufbau der Grafiken 
mittels eines Interpreters vorzunehmen, so bauen Sie ab 
Zeile 30000 die entsprechenden Routinen des später 
vorgestellten Grafik - Programmers ein. 

Sie benötigen nur die zwei Module Bild laden und Bild 
zeichnen, welche bei Programmzeile 7000 beziehungsweise bei 


Zeile 5000 beginnen. 
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5. KAPITEL 
- DAS SYSTEM - 
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Die vorangegangenen Kapitel haben Ihnen das nötige Rüstzeug 
in die Hand gegeben, um gute Adventures zu schreiben. 

Dennoch, obwohl wir mit unserem System ein Konzept 
entwickelt haben, welches zur Entwicklung der 
verschiedensten Adventures nur die Programierung der Daten, 
Bedingungen und Aktionen des betreffenden Spieles 
erforderlich macht, ist weiterhin ein beträchtlicher 
Arbeitsaufwand vonnöten, bevor die Testphase mit dem ersten 


Spielversuch beginnen kann. 


Eine Vereinfachung der Arbeit bedeutet ein sogenannter 
Adventure - Generator, der, nachdem alle notwendigen Daten 
eingegeben wurden, auf der Diskette beziehungsweise 


Cassette ein fertiges, spielbereites Programm hinterläßt. 


Nach diesem Verfahren arbeitet “VENTUREFIX , ein 
Programmgenerator welcher lauffertige Basic-Programme 
erzeugt und dessen Listing Sie im nächten Kapitel finden 
werden. 

Diese Lösung erfordert allerdings immer noch, daß die 
Planung des Spieles vor Beginn der Realisation vollständig 
abgeschlossen ist. Denn bevor der Generator mit der Arbeit 
beginnen kann, hat der Adventureproduzent eine Liste aller 
Räume, Objekte, Verben usw. zu erstellen und diese Daten 
dann in einer Mammutsitzung einzugeben. 


Treten während eines Testlaufes des so erstellten 
Programmes Fehler hervor, müssen diese weiterhin auf die 


übliche Art beseitigt werden. 


Weitaus wünschenswerter wäre daher eine Lösung, die jeden 
einzelnen Gedanken des Autors sofort fixiert und 
darüberhinaus eine sofortige Überprüfung und auch Besserung 
ermöglicht. 

Dies kann jedoch nur geschehen, wenn nicht ein fertiges Pro- 
gramm erzeugt, sondern eine Datei entwickelt wird, die alle 


für einen Spielablauf notwendigen Daten enthält. 
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Die Auswertung dieser Daten fällt dann einem Interpreter 
zu, der die zur Ausführung der verschiedensten Aktionen 


notwendigen Routinen enthält. 


Wie solch ein Interpreter und der dazugehörige Editor 
auszusehen haben, wollen wir Ihnen in diesem Kapitel des 


Buches zeigen. 


DIE DATEI 


Es wurde bereits deutlich gemacht, daß das eigentliche Ad- 
venture nunmehr nur noch durch eine Datei repräsentiert 
wird. 

Diese Datei muß alle für ein bestimmtes Spiel notwendigen 
Angaben in einer genau definierten Anordnung enthalten, 
damit für den Interpreter die Voraussetzung geschaffen ist, 
diverse Adventures verschiedener Länge zu laden. 


Nehmen wir eines unserer programmmäßig realisierten 
Adventures unter die Lupe, so zeigt sich, daß diese bereits 


zu einem großen Teil interpretierend arbeiten. 


Die Verben, wie auch die Objekte, werden nicht direkt zur 
Ausführung einer Aktion herangezogen, sondern es werden zu- 
nächst zwei Nummern ermittelt, deren Kombination genau fest- 


legt, welche Eingabe der Spieler gemacht hat. 


Als Voraussetzung für diese Arbeitsweise war es 
erforderlich, die Worte in Variablen einzulesen, ein 
Vorgang, der statt der Data - Zeilen auch direkt eine Datei 
von einer Diskette (Kassette) benutzen kann. 
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Auch die spieltypischen Daten haben wir bereits ermittelt 
und in den Zeilen 100 bis 185 als Kenndaten des Adventures 


in das Programm eingebracht. 


Überlegen wir uns nun, welche Werte aus diesem Block für ei- 
nen Interpreter notwendig sind, der zwar nicht alle Extras 
unseres System beinhaltet, aber eine ausreichende Anzahl 


von Funktionen bietet, um ein Spiel möglich zu machen. 


Zunächst finden wir einige Informationen über die Anzahl 
der vorhandenen Räume, Gegenstände und Verben. 

Diese Grenzwerte erwiesen sich zur korrekten Steuerung der 
einlesenden Schleifen als notwendig und werden es aus 
gleichem Grunde auch für den Interpreter sein. 

Ebenso werden wir die genaue Anzahl aller Mitteilungen 
festlegen müssen, denn sie werden fortan ohne Ausnahme in 
einem Variablenfeld aufbewahrt, und beizeiten ausgedruckt 
werden. 


Gleiches gilt für die Bedingungen und Aktionen. In einem 
Feld, ähnlich der Richtungstabelle DURCHGANG(,) werden wir 
diese Spieldaten zum Abruf bereithalten, weshalb wir die 
Variablen AC und BC (Aktionscodes und Bedingungscodes) 
zusätzlich in die Liste der Kenndaten aufnehmen. 


Auf die Anzahl der Flags dürfen wir ebenfalls nicht 
verzichten, denn auch unserem Interpreter soll ein 
Abspeichern des Spielstandes möglich sein. 


Als weiteren, für das Spiel wichtigen Wert müssen wir noch 
die Startposition des Spielers in unsere Datei aufnehmen. 
Die Funktion des Systems wäre zwar auch gewährleistet, wenn 
SPIELER nicht bei Spielstart initialisiert werden würde, 
aber dann müßte jedes Adventure immer in Raum 1 beginnen. 
Auf den ersten Blick wird daraus zwar kein Nachteil ersicht- 
lich, aber stellen Sie sich vor, nach einer kleinen Umstel- 
lung der Handlung soll der Abenteurer an einem völlig 


anderen Ort mit dem Spiel beginnen. 


Findet sich dann keine Variable SPIELER, die entsprechend 
neu initialisiert werden kann, müssen Sie alle 


Raumbeschreibungen, der neuen Planung gemäß umschreiben. 


Auf eine Punktwertung können wir zunächst verzichten. Damit 
aber das Ende des Spieles definiert werden kann, werden wir 
eine entsprechende Aktion vorsehen, die beispielsweise die 
Flags oder die im Inventory befindlichen Objekte auswerten 


kann. 


Eine Ergänzung, die nichts mit dem Spielablauf zu tun hat, 
aber dennoch sinnvoll ist, sollten wir ebenfalls nicht ver- 
gessen. 

So empfiehlt es sich, in der Datei auch Informationen über 
den Namen des Autors, den Namen des Adventures und vor 
allem das Datum der letzten Bearbeitung bereitzusellen, 
damit Sie die Version 5 mit nur noch drei Fehlern von der 


Version 1 mit mehr als zehn Fehlern, unterscheiden können. 


DER AUFBAU DES EDITORS 


Die Aufgabe des Editors ist es nun, dem Anwender die 
Eingabe wie auch später erforderliche Änderungen dieser 
Daten, auf bequeme und überschaubare Art möglich zu machen. 
Dazu werden eine Reihe unterschiedlicher Programmteile not- 


wendig sein, deren Aufruf durch ein Menü erfolgen soll. 
Die Reihenfolge wird dabei in gewissem Maße vorgegeben 
sein, denn solange die Räume noch nicht vorhanden sind, 


können die Gegenstände auch nicht plaziert werden. 


Im einzelnen könnte der Arbeitsablauf der Konstruktion 


eines Adventures mit dem Editor folgendermaßen aussehen: 
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RÄUME EINGEBEN 

OBJEKTE EINGEBEN 

VERBEN EINGEBEN 

OBJEKTE PLAZIEREN 

RÄUME VERBINDEN 
MITTEILUNGSTEXTE EINGEBEN 
BEDINGUNGEN & AKTIONEN EINGEBEN 


N. 8 N 


8. FERTIGE DATEI SPEICHERN 


Jede gewünschte Funktion wählt der Anwender durch Eingabe 
der entsprechenden Ziffer, weshalb wir im Anschluß an die 
für obiges Bild erforderlichen Ausgabebefehle eine 


Programmzeile mit den Sprungzielen vorsehen: 


350 ON ati GOTO 3000, 1100, 1200, 1300, 1400 
‚1500, 4000, 1600,5000, 6000 


DIE EINGABEN 


Bevor wir mit dem Aufbau der einzelnen Unterprogramme 
beginnen, hilft uns folgende Überlegung, den zu treibenden 
Aufwand möglichst gering und den Editor kurz zu halten. 


Der Benutzer muß jeweils über die erwarteten Daten 
informiert werden, damit er korrekte Eingaben machen kann. 
Zweckmäßigerweise konstruieren wir einfache Eingabemasken, 
die entsprechende Hinweise enthalten. 

Diese Masken werden, zumindest bei Eingabe der Räume, der 
Gegenstände und der Verben, weitgehend identisch sein, 
weshalb sich ein gemeinsamer Programmteil für diese 


Aufgaben anbietet. 
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Damit dieses Unterprogramm die richtigen Anweisungen geben 
kann, müssen diese Titel vor dem Aufruf zur Verfügung 


gestellt werden: 


1100 CLS):t1$="ORTE EINGEBEN ":t2$=" RAU 
M NR.:":t3$="ICH BIN " 

1105 z=ar 

1110 GOSUB 510 


Anschließend wird der Variablen Z die Anzahl der bisher 
vorhandenen Räume mitgeteilt und die Ein/Ausgabemaske 
aufgerufen (1110). 


Zu ihrer Gestaltung muß der Cursor immer wieder an anderen 
Stellen positioniert werden: 


499 REM ****** UNTERPROGRAMM EIN/AUSGABE 
500 CLS 

510 LOCATE 1,1:PRINT m4$:LOCATE 1,1:PRIN 
Tti$ 

520 z=z+1 

530 LOCATE 25,1:PRINT t2$;z 

540 PRINT m3$ 

590 LOCATE 1,25:PRINT t3$; :eingabe$="":L 
INE INPUT eingabe$ 

600 IF LEN(eingabe$)=0 THEN GOTO 200 

610 IF a=2 THEN PRINT:LOCATE 1,25:1INPUT" 
Rufname ";rn$(z):PRINT 

620 PRINT 

640 RETURN 

650 REM LE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2; ENDE EIN/AUS 


Zunächst werden die entsprechenden Hinweise ausgedruckt. In 
Zeile 610 wird überprüft, ob die gerade aufgerufene 
Funktion mit der Eingabe der Objekte identisch ist. 

Zeile 590 nimmt die Eingabe entgegen, die Zuweisung an die 
richtige Variable erfolgt innerhalb des rufenden 
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Unterprogrammes (mit Ausnahme des zweiten Objektnamens, der 


in Zeile 610 direkt eingegeben wird). 


Die Beendigung der aufgerufenen Funktion gilt als 
beabsichtigt, wenn statt einer Eingabe nur die ENTER - 
Taste gedrückt wird, die Länge des Eingabetextes somit 
gleich Null ist (Zeile 600). 


Analog zu diesem Beispiel wird die Eingabe der Objekte und 
Verben vorgenommen. Erst die Verbindung der Räume erfordert 


einen anderen Aufbau unseres Editierprogrammes. 


VERBINDUNGEN DER RÄUME 


Zunächst müssen alle möglichen Räume angezeigt werden, 
damit der Anwender die richtigen Raumnummern eingeben kann. 
Da diese Funktion ebenfalls für die Plazierung der Objekte 
notwendig ist, erstellen wir ein weiteres Unterprogramm 
(12000 - 12070). 


Daran anschließend werden für alle Räume der Reihe nach die 
sechs Richtungen abgefragt und die Eingaben direkt in die 
entsprechende Position der Richtungstabelle geschrieben: 


1499 REM ***tksekkeaekkkk RAEUME VERBINDEN 
1500 FOR r1=i2 TO ar 

1510 CLS 

1515 PRINT 

1520 GOSUB 12000 

1530 PRINT "Raum"; r1;*"fuehrt im Norden i 
n Raum*; :INPUT du(r1,1) 

1540 PRINT "Raum"; r1;"fuehrt im Sueden i 
n Raum"; :INPUT du(r1,2) 
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1585 NEXT ri 
1590 GOTO 200 
1591 REM ***xtxeetkekk ENDE VERBINDUNGEN 


AKTIONEN & BEDINGUNGEN 


Bevor wir mit der Eingabe der wichtigsten Daten, den 
Bedingungen und Aktionen fortfahren, müssen wir ein System 


zur Codierung entwickeln. 


Zur Aufbewahrung der Daten verwenden wir ein weiteres 
zweidimensionales Feld, wobei die Reihen diesmal durch die 
Verben, und die Spalten durch die Objekte vorgegeben 
werden. 

Um die Bedingungen auch für uns interpretierbar zu machen, 
entscheiden wir uns für eine Codierung durch Buchstaben. 
zahlen würden bei der Bearbeitung zwar einen 
Geschwindigkeitsvorteil bedeuten, aber die Bedeutung einer 
zwölfstelligen Zahl zu erkennen, ist mit Sicherheit 
schwieriger, als die Interpretation eines Strings wie 
"RF3S22" vorzunehmen, wenn dabei Konventionen, wie aus den 
folgenden Zusammenstellungen ersichtlich, getroffen wurden. 


R - OBJEKT UND SPIELER IM GLEICHEN RAUM 
I - OBJEKT IST IM INVENTORY 

N - OBJEKT IST NICHT IM RAUM 

FX- FLAG X IST GESETZT 

GX- FLAG X IST GELOESCHT 

SXX SPIELER MUSS SEIN IN RAUM XX 
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Diese Bedingungen sind völlig ausreichend, um Aktionen des 
Spielers nur zu den von der Handlung vorgeschriebenen 


Zeitpunkten durchführbar zu machen. 


Auch die vorgesehenen Aktionen entsprechen im wesentlichen 
den auf Seite 97 gemachten Anmerkungen, neu hinzugekommen 
sind lediglich die Befehle Dxy und E. 

Der Befehl D soll den Interpreter veranlassen, einen 
Ausgang aus dem augenblicklichen Raum nach Raum xin 
Richtung y sichtbar werden zu lassen, E beendet das Spiel 


und informiert den Spieler über seinen Sieg. 


V - OBJEKT VERSCHWINDET 

I - GEGENSTAND KOMMT INS INVENTORY 

NXX - OBJEKT MIT NUMMER XX ERSCHEINT NEU 
DURCHGANG NACH RAUM X IN RICHTUNG Y 
$SXX - SPIELER WIRD IN RAUM XX VERSETZT 
FLAG X WIRD GESETZT 

FLAG X WIRD GELOESCHT 

MXX - MELDUNG NR. XX WIRD AUSGEGEBEN 
SPIELFIGUR STIRBT 

SPIELENDE DURCH SIEG DES SPIELERS 


S 
< 
l 


en 
x x 
ı 1 


m - 
j I 
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DIE MITTEILUNGEN 


können ohne weitere Umstände sofort bei der Eingabe in die 
richtigen Variablen geschrieben werden. Entsprechend kurz 


fällt der für diesen Zweck vorgesehene Programmteil aus: 


3999 REM **t*rkeeekeeckkek MITTEILUNGEN 
4000 CLS:PRINT"Mitteilungen eingeben" 
4010 PRINT m3$ 

4020 am>=amt+t1 

4030 PRINT am; : INPUT m$(am) 

4040 IF LEN(m$(am))=O THEN am=am-1:GOTO 
200 

4050 GOTO 4020 

4060 REM ****rxrxrrx** ENDE MITTEILUNGEN 


AM behält die Kontrolle über die Anzahl der eingegeben 
Nachrichten und muß nach Beendigung der Funktion durch 


Eingabe eines Sternchens vermindert werden. 


KASSETTEN- ODER DISKETTENZUGRIFFE 


werden erforderlich, um die Datei zu speichern bzw. um sie 
zur erneuten Bearbeitung wieder in den Rechner zu laden. 

Damit die Datei, auch wenn ein Spiel noch nicht vollständig 
realisiert wurde, für den Interpreter bereits spielbar ist, 
müssen vor einem Abspeicherungsvorgang zusätzliche Daten 


eingegeben werden. 


Wichtig für den Interpreter ist vor allen Dingen die 
Wortlänge, denn dieser soll den für Variablen vorgesehenen 
Speicherplatz nicht dadurch mehr als nötig belegen, daß er 
die vollständigen Wörter speichert, sondern er soll nur die 


wirklich benötigten Buchstaben einladen. 
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Bereits erwähnt wurde, daß der Startraum des Spielers in 
der Datei enthalten sein muß, wie auch die Anzahl der 
verwendeten Flags für den Interpreter wichtig wird, sobald 
die SAVE GAME Funktion aufgerufen wird. 


Nach Eingabe dieser Werte werden alle Daten als 


sequentelles File auf dem Datenträger abgelegt. 


Ansonsten weist das Listing des Adventure - Editors keine 
Besonderheiten auf, so daß Sie, nicht zuletzt auch wegen 
der Remarks, die auf die einzelnen Blöcke hinweisen, die 
Funktionsweise verstehen dürften und das Programm nach 


Ihren Wünschen erweitern können. 


DER ADVENTURE INTERPRETER 


Auch das Verständnis des Interpreters wird Ihnen kaum 
Schwierigkeiten bereiten, ist er doch ähnlich unserer 


Adventureprogramme aus drei Blöcken aufgebaut. 


Im ersten Teil des Programmes werden wieder die Variablen 
mit den für das Spiel erforderlichen Daten initialisiert. 
Statt der DATA - Zeilen mit zugehörigen READ - Anweisungen 


benutzen wir nun ein mit dem Editor erstelltes Datenfile. 
Nachdem Sie die gewünschte Datei gewählt haben, wird sie 


von den Zeilen 60 bis 210 ausgewertet und aufbereitet. 


Der Programmblock von Zeile 1000 bis einschließlich Zeile 
2160 entspricht dem von uns entwickeltem Treiber, 
Änderungen sind nicht erforderlich. 
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völlig neu ist jedoch die Art der Ausführung jeglicher 
Aktionen. 

Ein einziges Programm, der Interpreter, soll in der Lage 
sein, zahlreiche, jeweils voneinander verschiedene Spiele 
ablaufen zu lassen. Deshalb ist es nicht möglich, starre 
Strukturen, die immer nur auf eine einzige Situation 
zugeschnitten sind, zu verwenden. Aus einer Reihe von 
Einzelaktionen müssen die gerade erforderlichen 
herausgesucht und ausgeführt werden, bis die Summe ihrer 
Wirkungen das gleiche Resultat erzielt hat. 


Diese Lösungsstrategie verfolgen wir sowohl bei der 
Überprüfung der Bedingungen als auch zur Ausführung der 


Handlungen. 


2200 FOR ab=1 TO LEN (bc$(vn,o)) 
2210 bd$(ab)=MID$(bc$(vn,o),ab,1) 
2220 NEXT ab 


Zunächst wird der Endwert der Schleife ermittelt, der von 
der Anzahl der für die Codierung einer bestimmten Aktion 
benutzten Buchstaben abhängig ist. Anschließend erfolgt 
eine Zerlegung des gesamten Strings in die einzelnen 
Bedingungen, die jeweils einem Element der Liste BD$() 


zugewiesen werden. 


Eine weitere Schleife überprüft nun die Erfüllung jeder 
einzelnen Voraussetzung innerhalb einer weiteren Schleife. 


Jedoch war es bei der Codierung erforderlich, für einige 
Bedingungen zwei und mehr Parameter festzulegen. So 
erfordert der Code S (Anwesenheit des Spielers in einem 
bestimmten Raum) die Angabe einer Raumnummer, wie auch das 
betreffende Flag bei F und G genannt werden muß. 

Aus diesen Gründen verzichten wir auf eine For/Next - 
Schleife und wählen stattdessen einen Aufbau, der es uns 
gestattet, den Schleifenzähler um beliebige, differierende 


Werte zu erhöhen. 


180 


Neben dieser Variablen (X) benutzen wir weiterhin die 
Variablen ERGEBNIS und OK, wobei Ergebnis nach jedem 
Schleifendurchgang logisch wahr (-1) sein soll, wenn die 
Bedingung erfüllt wurde, und logisch falsch, wenn die zu 
überprüfende Teilbedingung nicht erfüllt ist. 

Der Wert dieser Aktion wird sodann mit dem zuvor 
ermittelten Ergebnis durch ‘und’ logisch verknüpft. 

Somit wird sichergestellt, daß eine Handlung nur 
durchführbar wird, wenn alle Bedingungen erfüllt sind (denn 


nur dann wird ok = -1 sein !). 


2300 x=0:er=0:0k=-1 
2310 x=x+1:0ok=(ok AND er) 


Jeder Schleifendurchgang beginnt mit einer Erhöhung des 
Zählers, erst dann wird geprüft, ob der Endwert, der ja von 
der Anzahl der Bedingungen abhängig ist, erreicht ist oder 


nicht. 


2320 IF x=ab+1 THEN 2500 : REM ALLE BEDI 
NGUNGEN UEBERPRUEFT 


Abhängig von ok wird nun entschieden, ob eine Reaktion 
stattfindet, oder ob der Spieler weitere vorbereitende 


Handlungen durchführen muß: 


2500 IF NOT ok THEN PRINT"Das geht im Mo 
ment nicht.":GOTO 1080 

3999 REM **** ALLE BEDINGUNGEN ERFUELLT 
4000 PRINT "Okay !" 


Innerhalb des Schleifenrumpfes werden die Bedingungen der 


Reihe nach überprüft, wobei die betreffende Programmzeile 


auf die gleiche Art ermittelt wird, wie beispielsweise die 
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Routinen zur Behandlung der Ein - Wort Befehle innerhalb 


unseres Treiberprogrammes: 


2330 IF bd$(x)<>"R"THEN 2350 

2340 IF ob(o)=spieler THEN er=-1 

2345 GOTO 2310 

2350 IF bd$(x)<>"I"THEN 2370 

2360 IF ob(o)=-1 THEN er=-1 

2365 GOTO 2310 

2370 IF bd$(x)<>"N"THEN 2390 

2380 IF (ob(o)<>spieler AND ob(o))<>-1 T 
HEN er=-1 

2385 GOTO 2310 

2390 IF bd$(x)<>"S"THEN 2410 

2400 r1$=bd$(x+1)+bd$(x+2):x=x+2:IF spie 
ler=VAL(r1$) THEN er=-1 

2405 GOTO 2310 

2410 IF bd$(x)<>"F" THEN 2450 

2420 IF £fl(VAL(bd$(x+1)))=-1 THEN 2440 
2430 x=x+1:GOTO 2450 

2440 er=-1:x=x+1:G0OTO 2310 

2450 IF bd$(x)<>"G* THEN 2310 

2460 IF NOT fl(VAL(bd$(x+1))) THEN 2480 
2470 x=x+1:GO0TO2310 

2480 er=-1:x=x+1:G0OTO 2310 

2490 GOTO 2310 


Außer den Zeilen 2400 bis 2470 werden auch diese Zeilen Sie 
vor keinerlei Probleme stellen. 

In Zeile 2400 werden auch noch die nächsten zwei Elemente 
des Bedingungscodes BD$ herangezogen, um die Raumnummer zu 
ermitteln, anschließend wird der Zähler aktualisiert und 
eventuell die Ergebnisvariable auf wahr gesetzt. 

Ähnlich arbeiten die für die Auswertung der Flags 


vorgesehenen Zeilen. 
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Identisch ist die Arbeitsweise der einen Befehl 
ausführenden Programmzeilen. 

Innerhalb dieses Blockes wäre nur auf die Zeilen 5220 bis 
5240 hinzuweisen, die es ermöglichen, beispielsweise eine 
Tür zu öffnen. Durch ihre Manipulationen werden die 
korrekten Werte in die Richtungstabelle geschrieben, so daß 
einerseits der neue Durchgang sichtbar wird (5220), 
andererseits aber auch ein Rückweg vorhanden ist, wenn der 


Spieler sich in den neuen Raum begeben hat (5230). 


Die Zeilen von 5500 bis 5700 enthalten jeweils eine kurzes 
Unterprogramm, welche der Ermittlung einer zweistelligen 
zahl (5500), einer einzigen Ziffer (5600) beziehungsweise 
zweier Ziffern dienen (5700). 

Benötigt werden diese Werte zur Ausgabe der richtigen 
Mitteilungen, der korrekten Behandlung der Flags wie auch 
für die Öffnung eines Durchganges zu einem bestimmten in 
eine der sechs Richtungen. 


Das vollständige Listing des Interpreters entnehmen Sie 
bitte ebenfalls dem nächsten Kapitel 
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6. KAPITEL 
- ADVENTUREPRAXIS - 
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Dieses Kapitel wird Ihnen weniger zeigen, wie man's macht, 
sondern zeigt Ihnen am Beispiel vollständiger Programme, 
was man machen kann. 


Es folgen die kompletten Listings von drei 
Adventurespielen, die alle unter Verwendung der in diesem 
Buch entwickelten Programmteile und Routinen geschrieben 


wurden. 


Zum einen handelt es sich dabei um Goldrausch, ein 
Adventure, zu dem schon fast zuviel gesagt wurde; als 
zweites Programm wäre das Verzauberte Schloß zu erwähnen. 
Die Krönung des Ganzen ist aber Space Mission, ein 
trickreiches Spiel, welches als Grafikadventure realisiert 


wurde. 


Leider ist es jedoch so, daß Sie, wenn Sie dieses Buch 
durchgearbeitet haben, die Programme fast wie eine 
Anweisung zur Lösung lesen können. Deshalb wäre es 
empfehlenswert, die Arbeit des Eintippens mit jemandem zu 
teilen. 


Dies gilt insbesondere für die Programmzeilen ab Nummer 


5000, da hier das Spielgeschehen programmiert ist. 


Im Anschluß an die Spiele finden Sie dann die versprochenen 
Programmgeneratoren, nämlich den Grafik - Programmer, 


“Venturefix’, wie auch die Programme des Adventuresystens. 


Diese Programme machen es Ihnen möglich, menügesteuert 
Adventures zu erzeugen und diese sogar mit einem Minimum an 
Arbeit zu eindrucksvollen Grafikprogrammen auszubauen. 

Die notwendigen Erläuterungen und Bedienungshinweise stehen 


den betreffenden Programmlistings voran. 
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SPIELANLEITUNG: ADVENTURES 


Nachdem Sie das betreffende Programm geladen und mit RUN 
gestartet haben, erscheinen nach dem Titelbild und 
weiteren, allgemeinen Spielhinweisen die ersten 
Beschreibungen und Mitteilungen auf dem Monitor. 

Sie müssen zwischen der oberen und unteren Bildschirmhälfte 
unterscheiden: - in der oberen Hälfte finden Sie eine 
Beschreibung des Ortes, an dem Sie sich gerade befinden, 
daran anschließend werden Ihnen alle sichtbaren Gegenstände 
aufgezählt, und in einer weiteren Zeile werden sämtliche 
Richtungen genannt, in die Sie sich bewegen können. 

Die untere Hälfte dient hingegen dazu, Ihre Befehle an die 
Spielfigur einzugeben, ebenso werden dort die von der 
Durchführung Ihrer Eingabe abhängigen Informationen an Sie 


ausgegeben werden. 


IHRE EINGABEN: 


Ihre üblichen Eingaben werden meist aus zwei Worten, einem 
Verb und einem Objekt, bestehen. Überprüfen Sie zunächst, 
welche Eingabelängen das vorliegende Adventure fordert, 
meist sind die ersten drei oder vier Buchstaben zur 
Identifikation eines Wortes ausreichend. 

Achten Sie darauf, Bezeichnungen zu verwenden, wie sie auch 
innerhalb der Beschreibngen verwendet werden. 

Das bedeutet allerdings nicht, daß Sie auf eine Mitteilung 


wie: 


ICH SEHE EINE ROTE TÜR. 


WAS SOLL ICH TUN: 


mit OEFFNE ROTE TUER reagieren, meistens wird die Eingabe 
OEFFNE TUER völlig ausreichend sein. 
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Zusätzlich werden Ihnen einige weitere Eingaben erlaubt 
sein, die sogenannten Ein - Wort Befehle, welche weniger 
dem Spielverlauf dienlich sind, als daß sie Ihnen gewisse 
Serviceleistungen anbieten, um die Spielweise zu 


vereinfachen. 


RÄUMLICHE FORTBEWEGUNG: 


Sie können sich generell immer in die angegebenen 
Richtungen bewegen. Dazu reicht es aus, den 
Anfangsbuchstaben der jeweiligen Richtung einzugeben (außer 
für Bewegungen nach oben, hier müssen Sie zur 
Unterscheidung von Osten OB eingeben): Norden, Süden, 


Osten, Westen : N, S, O0, W; Oben, Unten : OB, U. 


Es gibt jedoch auch Ausnahmen und manchmal kann eine 
Eingabe wie BETRETE ... nutzbringend sein. 


MANIPULATION VON OBJEKTEN: 


Natürlich wollen Sie in der imaginären Welt nicht nur auf 
eine Besichtigungsreise gehen, sondern Sie müssen handeln 
und eine Aufgabe lösen. ö 

Dies setzt voraus, daß Sie die Gegenstände dieser Welt 
zunächst erst einmal entdecken, anschließend können Sie sie 
UNTERSUCHEN, NEHMEN, BENUTZEN usw. (Wenn Sie einmal nicht 
mehr weiter wissen, sollten Sie sich an diese Worte 
erinnern !). 

Um möglichst schnell ans Ziel zu kommen, sollten Sie bei 
Ihrem weiteren Vorgehen möglichst logisch und überlegt 


vorgehen. 


Nehmen wir an, Sie finden irgendwo einen Schlüssel. Sie 
denken "prima, doch was soll ich damit ?° 

Im wirklichen Leben würden Sie ihn sich ansehen, würden ihn 
genau untersuchen und dann entscheiden, ob Sie ihn 
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liegenlassen oder ob Sie ihn für brauchbar oder sogar 
wertvoll halten und daher mitnehmen. Diese einzelnen 


Schritte müssen Sie im Adventure unbedingt nachvollziehen. 


Geben Sie ein: UNTERSUCHE SCHLÜSSEL. Als Antwort erhalten 
Sie vielleicht: ES IST DER SCHLÜSSEL ZU MEINER WOHNUNG 
oder: ES IST EIN AUTOSCHLÜSSEL oder: ER IST AUS PUREM GOLD. 
Natürlich würden Sie keinen dieser Schlüssel liegen lassen, 
sondern alle mitnehmen, weshalb Sie auch: NIMM SCHLÜSSEL 
eingeben. Auf dem Bildschirm erscheint. als Mitteilung 
zumindest ein O.K. (Dieses O.K. werden Sie oft sehen, es 
bedeutet, daß der Adventureinterpreter Ihre Eingabe 
verstanden und ausgeführt hat.), wenn nicht sogar weitere 
Reaktionen folgen. 

Natürlich wird der Schlüssel nun nicht mehr in der 
Kopfzeile ICH SEHE erscheinen, denn da Sie ihn eingesteckt 
haben, befindet er sich jetzt in Ihrer Manteltasche oder 


ähnlichem, jedoch nicht mehr im Raum. 


Sollten sich auf diese Art und Weise zahlreiche Gegenstände 
in Ihren Taschen angehäuft haben, verlieren Sie vermutlich 


die Übersicht, weshalb Ihnen auch die Möglichkeit, 


INVENTUR 


zu machen geboten wird. Immer wenn Sie wissen wollen, ob 
Sie nicht zuviel unnützes Zeug mit sich herumtragen, oder 
was Schuld daran war, daß Sie im Treibsand versunken sind, 
oder aber, welche Gegenstände geeignet wären, eine 
bestimmte Aufgabe zu erfüllen, so geben Sie einfach INV 


ein. 


Als Antwort erscheint sofort: ICH TRAGE FOLGENDES MIT MIR: 


sowie eine Liste all dieser Objekte. 
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SPIELUNTERBRECHUNG : 


Sie werden es wohl kaum schaffen, ein Adventure in einem 
Anlauf zu lösen, und natürlich wollen Sie am nächsten Tag 
nicht wieder von vorne beginnen. 

Daher erlauben es fast alle dieser Spiele, den 


augenblicklichen Spielstand abzuspeichern. 


Wenn Sie ein Spiel vorläufig beenden wollen, so geben Sie 
einfach SAVE ein. Bessere Programme fragen Sie dann nach 
einem Namen, unter dem die augenblickliche Situation 
abgespeichert werden soll, einfache erfüllen diese Aufgabe 


sofort. 


Dieses Abspeichern empfiehlt sich auch zwischendurch: So 
könnte beispielsweise die Situation auftreten, daß Sie mit 
falschem Schuhwerk eine steile Felswand besteigen wollen. 
Hier ist die wWahrscheinlichkeit sehr groß, daß Sie 
abstürzen und sich Ihr Genick brechen; als Folge davon 
müßten Sie von vorne beginnen und alle Eingaben 
wiederholen. 

Vor dieser uninteressanten Tätigkeit hätte Sie ein 


rechtzeitiges Abspeichern bewahrt ! 


FORTSETZUNG EINES UNTERBROCHENEN SPIELS: 


Natürlich müssen Sie zunächst die entsprechende Cassette / 
Diskette einlegen, dann geben Sie einfach LOAD ein. 
Eventurell werden Sie gefragt, unter welchem Namen Sie den 
Spielstand abgespeichert hatten, andernfalls reicht das 
Drücken der <RETURN> - Taste allein, um das Spiel an der 


unterbrochenen Stelle fortzusetzen. 
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SONSTIGE HINWEISE: 


Wenn das Titelbild Sie nicht entsprechend informiert, 
müssen Sie zunächst herausfinden, welchem Typ das geladene 
Adventure angehört. 

Entweder haben Sie eine Aufgabe zu lösen, einen Ausgang zu 
suchen oder Schätze zu sammeln. 

Untersuchen Sie alles, was Sie sehen, und verhalten Sie 
sich immer logisch (so brauchen Sie zum ÖFFNEn einer 
VERSCHLOSSENEn TÜR zunächst einen SCHLÜSSEL, eine 
BRECHSTANGE o. ä.), zumindest solange, bis Sie darüber 
informiert werden, daß Magie im Spiel ist. Dann dürfen Sie 
auch völlig sinnlose Eingaben machen und darauf hoffen, 
möglichst schnell auf die richtige Kombination zu kommen. 
Achten Sie vor allem auf Mitteilungen der Art DAS GEHT IM 
MOMENT NICHT, denn damit soll Ihnen deutlich gemacht 
werden, daß Sie sich auf dem richtigen Weg befinden. 

Leider sind aber zur Durchführung der Aktion noch nicht 
alle Bedingungen erfüllt (z. B. fehlt der SCHLÜSSEL). 


Sollte ein Verb oder das Objekt nicht verstanden werden, so 
wird Ihnen darüber Mitteilung gemacht, und Sie sollten 
versuchen, die gleiche Aktion mit anderen Worten zu 


umschreiben. 


Eine letzte Möglichkeit wird durch ICH VERSTEHE NICHT, WAS 
DU MEINST ausgedrückt. Die von Ihnen benutzten Worte sind 
zwar bekannt, geben in Ihrer Zusammenstellung jedoch keinen 
Sinn. Oder aber, die geschilderte Handlung wurde vom 


Programmierer des vorliegenden Adventures nicht vorgesehen. 


TIPS ZUR LOSUNG EINES ADVENTURES 


Wenn Sie in verfahrenen Situationen überhaupt nicht mehr 


weiter wissen, können Sie es zunächst mit HELP versuchen. 
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Gelangen Sie auf diese Weise nicht in den Besitz weiterer 
Informationen, rufen Sie sich alle bisher entdeckten 
Gegenstände in die Erinnerung zurück und gehen alle 
Kombinationsmöglichkeiten mit den bislang bekannten Verben 
durch. Vielleicht stoßen Sie so auf eine 
erfolgversprechende Aktion, denn es kommt mit ziemlicher 
Sicherheit jedem Objekt eine Aufgabe zu; es nur zur 
Dekoration eines Raumes einzusetzen, dazu wäre der 


Programmieraufwand zu groß. 


Für diese Aufgabe hilfreich ist in jedem Falle eine Liste 
aller vom Programm verstandenen Worte; möglicherweise wird 
diese sogar vom Adventure selbst auf den Befehl VOKabeln / 
VOCabulary hin erstellt. 


Als ebenso nützlich erweist sich eine Karte, auf der Sie 
alle Räume mit Ihren Verbindungen eintragen, wobei Sie 


natürlich auch die Fundorte der Gegenstände nicht 


vergessen. 
Sollten Sie unverhofft, oder auch gewollt, weil 
unvermeidlich, in ein Labyrinth geraten, so ist die 


Erstellung einer solchen Karte gar nicht so einfach, wie 
Sie es sich jetzt vielleicht vorstellen. 

Denn statt wirklich vorhandener Räume hat man oft die 
dreifache Anzahl kartographiert. 

Der einzige Trick, um dieses zu verhindern, besteht darin, 
in jedem Raum des Irrgartens einen Gegenstand aus dem 
Inventory abzulegen und jedem einzelnen Aufenthaltsort 


damit ein unverwechselbares Kennzeichen zu geben. 


Und den wichtigsten Tip noch einmal: 


Speichern Sie Ihr Spiel zwischendurch immer wieder ab ! 
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Has verzaubertfe Schloss 


Dieses Adventure möchte ich Ihnen besonders ans Herz legen, 
hier wird besonders tief in die Trickkiste gegriffen, um 
dem Abenteurer einige Überraschungen bieten zu können. 

Geplant ist es eigentlich, daß der Spieler sich zunächst 
über die gestellte Aufgabe klar werden muß, ein Problem, 
welches Sie bedauerlicherweise bereits während des 


Eintippens lösen werden. 


Zahllose der in diesem Buch vorgestellten Techniken wurden 
verwandt, einige Programmteile sollen hier als Beispiele 
genannt werden. 

Flags wurden hier verwandt, um eine genaue 
Kontrollmöglichkeit der verschiedenen Stadien vor Verlassen 
des Schlosses zu haben. 

Sind alle Voraussetzungen erfüllt, wird ein entsprechender 


Durchgang geöffnet, und die Adventurewelt vergrößert sich 
um 16 Räume. 
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REM Schlossadventure, Version 1.2 
REM <c) 1984 
REM by Walkowiak 
REM KUREN HR HR 
11 ELS:ILOCATE 9,4:PRINT"Das verzauberte 
Schloss" 
14 LOCATE 12,26:PRINT"ein Adventure von" 
15 LOCATE 14,21:PRINT"J"SCHR$ (178); "rg W 
alkowiak" 
1& LOCATE 3,25:PRINT CHR$(164)5" 1984 b 
y DATA BECKER, Duesseldorf" 
sa PLOT 261, 2F1:DRAW 241, 231:DRAW 241, 
221:DRAW 221, 221:DRAW 221, ZI1:DRAW 26 
1, 231:PLOT 120, 28%: DRAW 146, 26%: DRAW 
149, 120:DRAW 200, 1260:DRAW 208, 260: DRA 
W 220, 286: DRAW 120, 28%: PLOT 20%, 220ıD 
RAW 429, 220 
31 FLOT 426, 120: DRAW 429, 26G: DRAW Au0, 
280: DRAW 504, 280: DRAW 489%, 264%: DRAW 48 
a, 12G: DRAW 420, 120: PLOT 419, 122: DRAW 
201, 122:PLOT 292, 122:DRAW 292, 146:DRA 
Ww Saa, 154:DRAW 308, 154:DRAW 316, 146:D 
RAW 316, 122 
S2 FLOT 4066, 281:FLOT 404, 281:DRAW 460, 
Z91:DRAW 420, ZIL:IDRAW 420, ZB1:DRAW 44 
@, 281:DRAW 449, ZI1:DRAW Abu, 291: DRAW 
460, 281:DRAW 486, 281:DRAW 486, 291:DRA 
W500, Z291:DRAW Saa, 281:FL0OT 2206, 281:D 
RAW 220, ZA 
35 DRAW Za0, Z91:DRAW Zaun, 281: DRAW 180, 
Z281:DRAW 186, Z91:DRAW 168, ZI1:DRAW 16 
a, Z281:DRAW 146, Z81:DRAW 140, 291: DRAW 
129, 291:DRAW 120, 281:5FL0T 172, 248:DRA 
W 169, 257:DRAW 169, 228:DRAW 175, 228:D 
RAW 175, 237 
34 DRAW 172, 24@:s PLOT 175. 183:DRAW 175, 
192:DRAW 172, 195:DRAW 169, 192:DRAW 16 
9, 185sPLOT 169, 18@:DRAW 175, 18%: PLOT 
448, 1809: DRAW 454, 18G@:DRAW 454, 189: DRA 
W 451, 192:DRAW 448, 189:DRAW 448, 186: P 
LOT 448, 228 


SUN" 


35 DRAW 448, Z37:DRAW 451. 240: DRAW 454, 
237:DRAW 454, ZZBEDRAW 448, ZZ8:FLOT 42 
1, ZF1:DRAW Auil, ZE1:DRAW A451, ZZI: DRAW 

381, 221:DRAW T81l. ZE1:DRAW F6l, ZIL:DRA 

W 361, ZZI:DRAW 541, ZZ1:DRAW 341, 231:D 

RAW 321, ZI 

36 DRAW 321, ZZ1:DRAW Teil, ZZ1:DRAW Zul, 
zZ31:DRAW 281, ZF1:DRAW 281, Z21:DRAW 2 
1, ZZ1:DRAW 261, ZI1:DRAW 241, ZI1:DRAW 

241, Z21:DRAW 221, 221:DRAW 221, ZES1:DRA 

w zul, Z31:FL0OT 398, 180%: DRAW 398, 189:D 

RAW 395, 192 

37 DRAW 392, 189: FL0OT I92, 189:DRAW 92, 
1809: DRAW 398, 186: FLOT I50, 18%: DRAW 35 

6, 18@: DRAW 356, 189:DRAW 355, 192: DRAW 

350, 189:DRAW 350, 189: FLOT 568, 18@:DRA 

W314, 1860:DRAW 314, 189: DRAW S11. 192:D 

RAW Z08, 189 

38 DRAW 368, 18@:FL0T 275, 18%: DRAW 275, 
189:DRAW 272, 192:DRAW 269, 189:DRAW 26 

9, 1865: DRAW 275, 189%: FLOT 256, 18%: DRAW 

236, 189:DRAW 233, 192:DRAW ZI, 189:DRA 

W230, 189: DRAW ZI6, 185: FLOT 299, 150:D 

RAW 299, 129 

39? FLOT 395, 129:DRAW F05, 153: FLOT 11, 
153: DRAW F11, 129:FL0OT 317, 132:DRAW 29 

5, 132 

4% FOR i=1 TO goa&: NEXT 

1509 ars Z6:ao= 45:av= Yıaf= I 
186 spieler= 9 

179 wl= 4 

19% DIM raum$(ar),.durchgang (far, 6) ,ob# (a 

o) ,rufname$(ao) ,„ob(ao),„verb%& (av) 

a0 REM HH KR ER EEREERRERRERER VEREBE 

N 

216 DATA untersuche 

211 DATA nimm 

zZ1i2 DATA lies 

zZ13 DATA oeffne 

214 DATA zerstoere 

215 DATA benutze 


21& DATA fuelle 

217 DATA leg 

z218 DATA wecke 

A000 REM Rare SEGENSTAEND 


301 DATA unzaehlige Euecherregale,regal 


502 DATA einen Tisch,tisch,i 

3053 DATA meinen Lehrmeister,Lehrer,Z 
394 DATA einen grossen Topf,Topf,> 

305 DATA eine Flasche,Flasche,& 

Z0& DATA den Schlossbrunnen „Brunnen, 4 
397 DATA ein RBuch„Ruch,& 

Za8 DATA schlafende Waechter „Waechter,5 
3997 DATA den Seilzug der Zugbruecke,Sei 
lzug,© 

31% DATA Bewohner des Schlosses,Rewohne 


11 DATA meine Gaeste,Gaeste,8 
S12 DATA einen Zettel,Zettel,® 
S13 DATA einen Kuechentisch,kuechentisc 


314 DATA ein Schlachtermesser „Messer ,®& 
315 DATA eine Armbrust, Armbrust,S3 

316 DATA einen Schluessel „Schluessel ,„®& 
17 DATA ein schweres Eisentor,Tor,6 
218 DATA eine Zugbruecke, Zugbruecke, 7 
319? DATA „„® 

S20 DATA „„@ 

a2 DATA Baeume,RBaeume, 12 

S22 DATA Baeume, „13 

S2E DATA mehrere vollgepackte Regale,Re 
gal,14 

324 DATA „.© 

325 DATA Baeume, Baeume, 15 

326 DATA Baeume,,„16 

327 DATA Baeume, „17 

328 DATA eine grosse Elster,Elster,„17? 
329 DATA einen Haehlenreingang,Hoehle, 18 
336 DATA golden glaenzendes Metall,.Meta 
11,19 
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551 
332 
SIT 
53354 
335 
336 
n,.23 
337 
358 
3359 
340 
341 


DATA eine alte Ruestung ,Ruestung, © 
DATA nichts besonderes, ‚21 

DATA einen Sumpf ,„Sumpf,& 

DATA Schlamm, Schlamm, 23 

DATA Schlangeneier „Eier ,26 

DATA einen truegerischen Boden, Bode 


DATA sprudelndes Wasser ‚Wasser „24 
DATA einen Schlossgraben,Graben, 1% 
DATA nichts besonderes, „20 

DATA Spinnweben ,„Spinnweben,& 

DATA eine Flasche mit blauem Wasser 


‚Flasche, & 


342 
3453 
344 
345 
=) 

soo 
N 

Sal 


‚2,0, 


sa2 
305 
a4 
5305 


0,0, 


306 
307 
Bl = 
[0] 

>07 
0,8 
>10 
0,0 
Sii 
s12 
0,0 
S13 


14 


DATA „,‚@ 

DATA eine Schlangengrube ‚Grube, 22 
DATA Schlangen, Schlangen, 26 

DATA einen steinernen Altar,Altar,?2 


REM ####%#%#%%*%%*%* RAUMBESCHREITRUNGE 


DATA in der Schlossbibliothek,„%,5,0 
[2] 

DATA im Studierzimmer „02,92,1,09,9,6 
DATA in der kueche, 1,8,9,4,0,© 

DATA im Schlosshof ,%,8,3,6,0,9 

DATA in einem der Wachttuerme,8,60,6 
11 

DATA im Schlosshof,11,92,4,0,9,© 
DATA vor der Zugbruecke,2,0,6,80,0,© 
DATA im grossen Festsaal,4,8,3,9,%, 


DATA in einem Frivatgemach,9,97.8,%, 
DATA auf einer Zugbruecke,6,09,7,12, 


DATA im Schlosshof,%,6,0,9,5,6 
DATA auf einem Waldweg, 12,16,1%, 15, 


DATA im Zauberwald,21,17,12,15,9,0 
DATA in einer duesteren Haoehle,®%,18 


‚14,2,0,8 


200 


S15 DATA im Wald,15,15,15,.16,6,8 

516 DATA im Zauberwald, 12,21,.15,17,0,0 
517 DATA im Zauberwald, 15,22,16,18,9,9 
518 DATA am Fusse eines Gebirges,14,6,1 
7,19,9,9 

519 DATA in einer duesteren Hoehle,25,6 
‚138,19,9,8 

526 DATA in einem Schloss, 29,24, 24,21, 


521 DATA im Wald,16,21,2@,21,60,60 

S22 DATA im Sumpf, 17,0,9,25,0,© 

S2S DATA im Sumpf, %2,0,22,24,0,& 

32 DATA an einer Quelle ,25,24,0,23,0,6 
525 DATA in einer duesteren Hoehle,25,.1 
9,25,14,14,9 

526 DATA in der Schlangengrube,©,0,0,0, 


san m$(a)="Ich verstehe nicht was Du mei 
nst !" 

61 m$(1)="Ich sehe nichts besonderes." 
662 m$(2)="So stark bin ich nicht !" 
625 m$(D)="Sie scheinen tief zu schlafen 


04 mb$(4)="Das halte ich fuer wenig sinn 
voll." 

605 m$(6)="Die Elster hat mir etwas gest 
ohlen.'" 

826 m#(7)="Da liegt eine alte Ruestung." 
607 m$(8)="In der Hand haelt er einen Ze 
ttel." 

BF m$(P)="In einer Tasche ist ein Schlu 
essel." 

81a ms (1m)="Eine Inschrift besagt: 

Nimm unser Opfer und sei uns 

gnaedig." 
era oks="Okay |" 
697 REM #X####r##rrtk hier evtl. Z. Titel 
ga0 FOR i=1 TO av 

Bi READ verb#t(i):verb$(i)=LEFT$ (verb$( 
i),wl)zverb# (i)=UFPER$ (verb$(i)) 
820 NEXT i 
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Sa FOR objekt=1 TO ao 
84% READ ob$(objekt) ,rufname$ (objekt),o 
b(objekt) srufname$ (ob jekt)=LEFT$ (rufname 
$(objekt) „wl)srufname$ (ob jekt) =UFFER$ (ru 
fname$ (objekt)):NEXT objekt 
8520 FOR raum=i TO ar: READ raums (raum) 
840 FOR richtung=l TO &:READ durchgang 
raum, richtung) 
879 NEXT richtung:NEXT raum 
880  FRINT: INFUT" Wuenschen Sie Ratsch 
laege fuer Ihr weiteres Vo 
rgehen"seingabe$:eingabe#=UFFER$ (eingabe 
$) 
894 IF LEFT$(eingabe$,1)="J"THEN GOSUR 
950 ELSE GOTO 1060 
895 GOTO 10 
g9a& MODE 1:FAFER @: INK @,0: BORDER G: PEN 
1:INK 1,25 
91a FRINT" CFC — Ventures":FRINT T 
AB(ASICHR$(164)5" 1984 by J"CHR$(178)35" 
rg Walkowiak 
926  FRINT STRING$ (49, 258) :FRINT"Stellen 
Sie sich einen Roboter vor, denSie mi 
t zahlreichen Kommandos steuernkoennen 
936  FRINT"Ich bin dieser Roboter, und 
ich werdemich fuer Sie den Gefahren de 
r verwegen-sten Abenteuer aussetzen." 
946 FRINT"Damit Sie mich sinvoll agie 
ren lassenkoennen, werde ich Ihnen di 
e Situationin der ich mich gerade befin 
de, jeweils genau beschreiben." 
9589  FRINT"Anschliessend sagen Sie mi 
r mit zweiWorten, wie beispielsweise 
UNTERSLICHETUER, NIMM MESSER, was ich tu 
n soll.":FRINT 
9640  FRINT"Darueber hinaus verstehe ich 


die Befehle INVENTUR, SAVE, LOAD und 
ENDE. " 

97a FRINT STRING$ (49, ZI): INK 535,12,24:1 
NE 2,24,12:FEN 3: FRINT" “Tas 
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te="s: FEN Z3FRINT" druecken"s:FEN 1:FRIN 

T 

980 eingabe$=INKEY$: IF eingabe$="" THEN 
985 ELSE CLS:MODE 1:INK 1,2:INK 2,14: IN 

K 5,26: RETURN 

995 MODE 1:FAFER : INK 9,0: BORDER &: INK 
1,2:INH 2,14: INE 3,26: PEN 1 

1aaG leerzeile$t= STRING$ (40,32) 

1010 DATA Norden ,Sueden „Westen, Osten, ob 

en,unten 

1926 FOR richtung=1 TO & 

1950 READ richtung$ (richtung) 

194% NEXT richtung 

1079  CLS 

1095  FRINT:FRINT 

1999 LOCATE 1,1 

11loa FOR zeile=1 TO 1a 

111 PRINT leerzeile$; 

1120 NEXT zeile 

1130 LOCATE 1,1:FEN 1 

114% FRINT"Ich bin "5 

1150  FRINT raum$ (spieler) 5:FRINT"." 
114%  PFRINT"Ich sehe "s;:gedruckt= 

1178 FOR i=1 TO ao 

118% IF ob(i)“>spieler THEN 1218 

119% IF FOS(#@) +LEN (ob$(i)) +2«L=T9 THEN 

FRINT ob#$(i)5", "5:60T0 1205 

1200 IF FOS(#@) +LEN(ob$(i))+2537 THEN P 

RINT:GOTO 119% 

1285  gedruckt=-1 

1219 NEXT i 

1215 IF NOT gedruckt THEN FRINT"nichts 

besonderes "35 

1220 FRINT CHR$ (8) SCHR& (8) 5". " 

1250  FRINT leerzeile$:FEN 2 

1245  FRINT"Ich kann nach "j:gedruckt=o 
1259 FOR richtung=i1 TO & 

1Z6a IF durchgang (spieler,richtung)=& T 

HEN GOTO 13069 ELSE gedruckt=-1 

1275 IF FOS(#0)=15 THEN FRINT richtung$ 
(richtung) 35:GOTO 1308 
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1280 IF FOSC#O)+LEN (richtung$ (richtung) 
)£S8B THEN FRINT", "srichtung$ (richtung);5 
:GOTO 1309 

129@  PRINT",":FPRINT richtung$ (richtung) 
;:G0TO 13090 

15060 NEXT richtung 

1519 IF gedruckt=@® THEN FRINT"nirgendwo 


tm 
’ 


1320  PRINT".":PEN 3 

1335  FRINT STRING$ (49,154) 

15464 IF spieler=25 THEN GOSUR 14000 

1598 FEN 3:LOCATE 1,25: INPUT"Was soll i 
ch tun"seingabe$:eingabe$=UFFER$ (eingabe 
$):PEN 2 

1392 IF spieler=17 THEN GOSUR 13040 

1594 IF spieler=23 THEN GOSUR 1516060 

1396 IF spieler=15 THEN GOSUR 15280 

1460 IF LEN(eingabe$):>Z2 THEN 15060 

141% IF eingabe$s="N" AND durchgang {spie 
ler, 1)“>@ THEN spieler=durchgang (spieler 
„A)s:FRINT 0E$:G60TO 1586 

142% IF eingabe$="S" AND durchgang (spie 
ler ,Z2)<>@ THEN spieler=durchgang (spieler 
„2)=FRINT 0ok$:6G0TO 19890 

14376 IF eingabet="W" AND durchgang {spie 
ler, F)<>60 THEN spieler=durchgang (spieler 
«N :FRINT 0k$:G0OTO 1980 

1445 IF eingabe$="N" AND durchgang (spie 
ler,4)2>6 THEN spieler=durchgang (spieler 
„4):FRINT 0k$:G0TO 1080 

1456 IF eingabe$="OR" AND durchgang {spi 
eler,S)“>& THEN spieler=durchgang (spiele 
r.S@):FRINT 0k$:60T0 1980 

1469 IF eingabe$="U" AND durchgang (spie 
ler,6)£>&© THEN spieler=durchgang {spieler 
„ö):FRINT ok$:G0OTO 108% 

1475 IF LEN(eingabe#)“S5 THEN FRINT"Dahi 
n fuehrt kein Weg !":GOTO 1080 

1485 IF LEN(eingabe$):8 THEN GOTO Zuaco 

1497 REM zer START INVENTU 
R 
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1509 IF LEFT$(eingabe$, FI)“ H"INV" THEN G 
OTO 1600 
151@ FRINT"Ich trage folgendes mit mir: 


1520 FOR objekt=1 TO ao 

1550 IF ob{objekt)=-1 THEN FRINT ob$ (ob 
jekt) 

154% NEXT objekt 

1550  GOTO 1686 

1560 REM Kerr ENDE INVENTUR 
1600 IF LEFT$(eingabe$, 3)<5"SAV" THEN G 
OTO 1700 

161% FRINT"REC & FLAY druecken ... 

Unter welchem Namen speicher 

N een nennenn a "SSTRINGS$ (10,8)5: INPUT einga 
be$ 

1420 IF LEN(eingabe$);1@ THEN FRINT"ERit 
te etwas kuerzer '!":GOTO 161% ELSE einga 

be$="!"+eingabe$+".spiel":OPENOUT eingab 
e$ 

16355  FRINT#9, spieler 

164% FOR objekt=1 TO ao 

16850 FRINT#9,ob (objekt) 

1665 NEXT objekt 

1674 FOR raum=1 TO ar:FOR richtung=i TO 
6: FRINT#9, durchgang (raum, richtung) :NEXT 
richtung:NEXT raum 

1686 FOR flag=1 TO af:FRINT#9,fl)flag:N 
EXT flag 

169%  CLOSEOUT:FRINT 0k#:GOTO 168% 

1799 IF LEFT$(eingabe$, 3)X>"LOA" THEN G 
OTO 19700 

1719  FRINT"Cassette rueckspulen % PLAY 
druecken .„..Welches Spiel laden .„.„zeur.. 
„.";STRING$ (19,8)5: INPUT eingabe$ 

1726 IF LEN(eingabe$) ‘1% THEN FRINT"Das 
kann nicht sein !":G60TO 171@ ELSE einga 
bes="!"+eingabe$t+".SFIEL":OFENIN eingabe 
$ 

1735  INFUT#9, spieler 

1748 FOR objekt=1 TO ao: INFUT#9,ob (obje 
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HtE)ENEXT objekt 

1759 FOR raum=1 TO ar: FOR richtung=1 TO 
6: INFUT#? , durchgang fraum, richtung) sNEXT 
richtung:NEXT raum 

1768 FOR flag=1 TO afsINFUT#9,fl(flag)d: 

NEXT flag 

1778  CLOSEIN:FRINT 0k#:G0TO 1688 

1990 IF LEFT$(eingabe$, HP :“>F"INS" THEN 6 
OTO 1959 

1719 GÜOSUR 9909:G0TO 158% 

1956 IF LEFT$(eingabe$, 3)“ F"END" THEN 6 
OTO zaae 

196% FRINT"Der Autor wuenscht Ihnen meh 
r Erfolg beim naechsten Mal.":FRINT:P 
RINT:FRINT:END 

z2a00  laenge=LEN (eingabe#) 

z2a19 FOR buchstabe=i1 TO laenge 

ZO20  pruef$=MID$ (eingabe$,buchstabe, 1) 
za3a IF pruef$i>" "THEN NEXT buchstabe 
2040 everb$=LEFT$ (eingabe$,wl) 

2a50  rl=laenge-kuchstabe 

2060 IF rlioa THEN 29976 

2979  eobjekt$=RIGHT$ (eingabe#,r]) 

2080 eobjekt$=LEFT$(eoabjekts$,wl) 

zZa90 FOR verbnummer=1 TO av 

21580 IF everb$=verb$ (verbnummer) THEN 2 
150 

zi1oa NEXT verbnummer 

2128 FRINT"Das Verb verstehe ich nicht. 
":GOTO 1589 

21350 FOR o=1 TO a0 

2140 IF eobjekt$=rufname$(o) THEN 2240 
2150 NEXT o 

zi&a FRINT"Diesen Gegenstand kenne ich 
nicht.":6G0TO 1086 

2200 ON verbnummer GOTO ZSaao, saaa, 7009 
o, Ba0o, aan, 10caa, 11uacs, 12a, 1606 
[e) 

45090  CLS:REM SFIELER TOD 

4510  FRINT"Auch das noch !":FRINT:FRINT 
mE (6) 
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4520  FRINT:FRINT"Ich bin tod !":FRINT 
4536  INFUT"Soll ich es noch einmal vers 
uchen "seingabe#t:eingabe#t=UFFER$ (eingabe 


4545 IF LEFT$(eingabe$,1)="J" THEN RUN 
4550 GOTO 1965 

4800  CLS:REM SFIELER SIEGT 

481© FRINT"Herzlichen Glueckwunsch !" 
4820  FRINT:FRINT"Sie haben die Ihnen ge 
stellte Aufgabe":FRINT:FRINT"geloest und 
duerfen sich nun an einem":FRINT:FRINT" 
anderen Adventure versuchen." 

4830 FRINT:FRINT:FRINT:FRINT:END 

sooo IF oab<(o)t}Fspieler AND ob (o)«“>-1 THE 
N GOTQ 5900 

Saal IF o=16& AND spieler=Z& AND ob (F1)«kH 
-1 AND ob (4%) 5-1 THEN FRINT m$(7)zob (Al 
)=26: 0b 1409)=26:G60T0 1580 

saaz2 IF o=16 AND spieler=8 THEN FRINT m$ 
(M:GOTO 158% 

sacaa IF o=11 AND spieler=7 THEN FRINT m#$ 
(M:GOTO 1089 

Saoa4 IF o=4 AND (spieler=T OR ob(4)=-1) 
THEN FRINT m$(1):60T0 168% 

„a95 IF o=5 AND (spieler=F OR obto)=-1) 
THEN FRINT m$<1):G0T0O 1989 

saa&a IF o=1 AND spieler=i1 THEN FRINT m$( 
1):GOTQO 1980 

aaa IF o=3 AND spieler=2 AND ob(12)=a T 
HEN FRINT m$ (8) sob (12) =2:60T0 168% 

sang? IF a=3 AND spieler=2 THEN FRINT m${ 
1):GOTQO 1080 

sale IF o=&4 AND ob (5)=& THEN FRINT"Auf d 
em Wasser treibt eine Flasche. ":ob(S)=sp 
ieler:GOTO 1989 

sa11 IF 0o=7 AND (spieler=i OR ob(o)=-1i) 
THEN FRINT"Es ist ein Euch ueber Zaubert 
raenke.":GOTO 108% 

5012 IF o=8 AND spieler=5 AND ob (14)=4 T 
HEN FRINT m$(9):ob(16)=spieler:G0OTO 1580 
SO1IS IF o=79 AND NOT fl{1) THEN FRINT m${ 
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1):G0T0O 1680 

5014 IF 0=9 AND flt1) AND spieler=5 THEN 
FRINT"Er ist nicht funktionsfaehig.":60 

TO 1886 

5915 IF o=1Z AND ob (12)=-1 THEN FRINT"Da 

rauf steht etwas geschrieben. ":ob(16)=sp 
ieler:GOTO 1580 

316 IF o=12 AND ob (12)=2 THEN FPRINT"Daz 
u muss ich ihn erst nehmen. ":GOTO 1084 
5917 IF o0=13 AND ob (14)=& THEN FRINT"Auf 
dem Tisch liegt ein Messer.":ob(14)=3:6 

0OTO 1686 

sa18 IF o=Z AND (ok(7)=1 OR ob(7)=u) THE 
N FRINT"Darauf liegt ein altes Ruch.":ob 
(7)=1:60T0 168% 

5919 IF 0o=14 AND (ob(14)=spieler OR ob(1 
4)=-1) THEN FRINT"Die Klinge ist sehr sc 
harf.":GOTO 108% 

saz2a IF o=15 AND (ob (o)=spieler OR ob(o) 
=-1) THEN FRINT m$(1):GOTO 108% 

saz1i IF o=16 AND (ob (1&6)=-1 OR ob (1%ö)=sp 
ieler) THEN FRINT m$(1):G0TO 1680 

a22 IF 0=17 AND spieler=& AND fl(M«ir-—1 
THEN FRINT"Es ist verschlossen. ":GOT0O 1 
[n1= 1%) 

sa2s IF 0=17 AND spieler=& AND f1(M=-1 
THEN FRINT"Es steht weit offen.":G0OTO 19 
ga 

5424 IF o=18 AND spieler=7 AND fl<1) THE 
N FRINT'"Die Zugbruecke faellt nach unten 
."ıdurchgang (7,4)=14:G0T0 1580 

aa25 IF 0=18 AND spieler=7 AND NOT f1(1) 
THEN FRINT"Die Zugbruecke ist hochgezag 
en.":GOTO 168% 

sa26 IF o=21 THEN FRINT m$(1):60T0O 1686 
5027 IF o=Z3 AND spieler=14 THEN mö$="Es 
war eine Zauberkueche. De 
r Zauberer kam und machte einen Stein au 
s mir.":GOTO 4500 

saza IF o=28 AND spieler=17 THEN FRINT"E 
s ist wirklich ein Frachtexsemplar.":GOSU 
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RR 13009:G0TO 1680 

3929 IF o=297 AND spieler=18 THEN FRINT"E 

in merkwuerdiger Geruch dringt heraus."5 
:GOTO 10980 

sosea IF 0=356 AND (spieler=197 OR ob (30) =- 
1) THEN FRINT"Es ist wertloses Metall.": 

GOTO 198% 

so531 IF o=F1 AND (spieler=Z&a OR ob (S1)=- 
1) THEN FRINT m$(1):G0OTO 108% 

Ssaa2 IF 0=35 AND (spieler=264 OR ob (35) =- 
1) THEN FRINT m$(1):6G0TO 108% 

SasS IF 0=36 AND spieler=2Z5 THEN FRINT"E 

r sieht nicht sehr tragfest aus.":GOTO 1 

ago 

5954 IF o=38 AND spieler=1& THEN FRINT m 

$(1):60T0 198% 

So35 IF 0=37 AND spieler=24 THEN FRINT'"E 

s ist das beruehmte blaue Wasser. ":GOTO 

108% 

Sas6 IF 0=40 AND (spieler=Za OR ob (44)=- 
1) THEN FRINT m$(1):G0TO 1089 

2a37 IF 0o=43 THEN spieler=26:FRINT"Okay 
11:GOTO 1080 

Ssas8 IF 0=45 THEN FRINT m$(10):G0T0 10684 

58797 PRINT m$(1):G0T0 1680 

So IF o=21 THEN FRINT m$(1):G0T0O 198% 

s9a1 IF o=16 AND spieler=206 AND ob (F1)«> 

-1 AND ob (4%)£>-1 THEN PRINT m$(7):ob(31 

)=20: 0b (40)=29:G0TO0 1986 

S9a2 IF o=F3 AND spieler=23 THEN GOSUR 1 

Z100: FRINT"Im Osten scheint eine Quelle 

zu sein.":GOTO 198% 

S903 IF o=16& AND (spieler=23 OR ob (S4)=- 

1) THEN FRINT"Es ist Heilschlamm. ":GOSUR 
1319G:G0OTO 1080 

5964 IF o=2 AND spieler=T AND ob (14)=6 T 

HEN FRINT"Auf dem Tisch liegt ein Messer 
.„"tob(14)=F:G0TO 1685 

5995 IF o=2 AND spieler=F AND ob (14)«>0 

THEN FRINT m$(1):G0T0 1989 

597995 FRINT"So etwas sehe ich hier nicht 
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1":GOTO 1080 

aaa IF obto)i>spieler AND obfo)«“i>-1 THE 

N GOTO 4900 

saal IF o=1 THEN FRINT m$(2):G0TO 1585 

soaz2 IF 0o=& THEN FRINT m$(2):G60T0 10980 

sa05 IF o=17 THEN FRINT m$(2):G0T0 1680 

6594 IF a=Z2 THEN FRINT m$(4):G60T0 1680 

aaas IF a=3 THEN FRINT m$(4):60T0 10580 

sans IF o=8 THEN FRINT m$(4):60T0 108% 

6507 IF o=1% THEN FRINT m$(4):60T0 1080 

KaaR IF a=11 THEN FRINT m$(4):G0TO 1080 

809 za=t:FOR i=1l TO ac: IF ob(i)=-1 THEN 
za=szatl:ıIF za=4 THEN GOTO 6699 

sale NEXT i 

oall IF o=5 THEN ob (o)=-1: PRINT 0k$:G0OTO 
1686 

salz IF 0=7 THEN ob (o)=-1:FRINT ok$:GOTO 
1980 

sein IF o=12 THEN ob (to)=-1:FRINT 0ok$:G0T 

0 1980 

6214 IF 0=15 THEN ob (to)=-1:FRINT 0k$:GOT 

0 1080 

6215 IF o=16 THEN ob (o)=-1:FRINT 0k$:GOT 

n 1080 

6a1l& IF 0=14 THEN ob (to)=-1:FRINT 0ok$:GOT 

D 1086 

6217 IF 0=? THEN FRINT m$(2):60T0 1080 

6818 IF a=Z3 THEN PRINT m$(2):G0T0 1089 

6517 IF o=28 THEN FRINT"Womit soll ich s 

ie fangen ?":GOSUR 1F0909:G0TO 1089 

enza IF o=18 THEN FRINT m$(9):60T0 1.80 

Kazl IF o=36 THEN ob (o)=-1:PRINT ok$:GOT 

an 1080 

ea2Z IF o=51 THEN ob (o)=-1:FRINT"Ich hab 

e die Ruestung angelegt.":GOTDO 1986 

azS IF 0o=35 AND ob (F1)=-1 THEN FRINT ok 

$:0b (35)=-1:60T0 10980 

6524 IF 0=35 AND ob (F1)E5-1 THEN mE (o)=" 

Eine Schlange hat mich gebissen. ":650T0 4 

565 

oa25 IF 0o=56 THEN FRINT m$(4):60T0 1086 
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sun2b IF 0=37 AND ob (5)=-1 THEN FRINT ok$ 
ob (S)=G:ob<(41)=-1:60T0 1989 

6527 IF 0=37 AND ob (5S)“>-1 THEN FRINT"Zu 

vor brauche ich eine leere Flasche. ":G60T 

0 1088 

Ga28 IF 0o=S8 THEN FRINT m$(0):6G0T0 1986 

Ba29 IF 0o=48 THEN ob (46) =-1:FRINT 0k$:G0 

TO 10896 

Sas2 IF o=13 THEN FRINT m$(4):G0TO 1080 

sasF IF 0o=4 THEN ob (o)=-1:FRINT 0&$:60TO 
1920 

ran IF o=16& AND spieler=25 AND ob (4):i:- 
1 THEN FRINT"Zuvor brauche ich ein Gefae 

ss !":GOTO 108% 

srol IF o=16 AND spieler=?23 AND ob (4)=-1 
THEN FRINT ok$:ob (34)=-1:G0T0 10986 

sea IF o=2 AND spieler=F THEN FRINT m$< 

4):G60TD 1088 

8778 FRINT"So etwas sehe ich hier nicht. 
":GOTO 1080 

679797 FRINT"Tut mir leid - aber ich trage 
schon":FRINT"mehr als genug '!'":GOTO 1©8 

10) 

aaa IF o=13 AND ob (12)“>-1 THEN FRINT"I 

ch habe keinen Zettel.":G0OTO 1©86 

7aa1 IF o=12 AND ob (o)=-1 THEN co=INT (RN 

D(DD*1OO)»FRINT"Ich sehe zittrig geschri 

eben die Zahl:":FRINT co:GOTO 1080 

702 IF n=7 AND ob(7)=-1 THEN GOTO 7650 

ass IF n=7 AND ob (7)“>-1 THEN FRINT'"Daz 

u muss ich ihn erst haben.":GOTO 1080 

7&47 FRINT m$ (0) :G0TQO 1080 

7650 INFUT"Welche Seite "}jse 

7651 IF sei>co THEN FRINT m$(1):G0T0 198 

(5) 

7852 CLS:FRINT"RATSCHLAEGE FUER RBESONDER 

E NOTLAGEN: ":FRINT STRING$ (46, 154) :FRINT 

7654 FRINT"Sollte es Dir angeschehen, da 

ss die'":FRINT"Deinen von einem Zauberer 

boeser Ge-" 

7655 FRINT"sinnung in den langen Schlaf 
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versetzt'":FRINT"werden, so hoere meinen 

Rat: ":FRINT 

76537 FRINT:FRINT"Verschaffe Dir die vier 
Zutaten zu"sFRINT"Humbug’s Heilwasser u 

nd bringe Sie" 

7657 FRINT"dem Zauberer jenseits des Zau 
berwaldes."s; 

766©0 FRINT:FRINT"Sollte er Dir wohl geso 
nnen sein, ":FRINT"so wird er Dir helfen. 
7661 FRINT:FRINT"Ist er es nicht, so kan 
nst Du nur"sFRINT"noch auf einen Frinzen 
hoffen, der" 

7663 FRINT"auf traditionelle Weise Deine 
Tochter ,„":PRINT"und mit ihr alle Bewohn 
er des Schlosses"5:PRINT"wachkuesst." 
7666 eingabe$=INEEY$: IF eingabe$="" THEN 
7666 ELSE CLS:G0TO 168% 

7998 FRINT m$(0):GOTO 1080 

Bsaaa IF 0=17 AND ob (16)%>-1 THEN PRINT'"W 
omit ?":60T0 108% 

8a01 IF 0=17 AND ob<(16)=-1 THEN FRINT ok 
$:durchgang (68,.4)=7:f1 (DD =-1:60T0 1080 

Baaz IF 0=35 AND ob (35)=-1 THEN FRINT"Da 

rin war eine zaehe Fluessigkeit.":G0T0 1 

ago 

829997 FRINT m$(©):G0OTO 108% 

99GG IF 0=9 AND ob(14)=-1 AND spieler=5 

THEN FRINT'"Die Halteseile sind zerschnit 

ten.":fl(1)=-1:G60T0 10989 

Paa1 IF 0=9 AND ob (14)%>-1 AND spieler=5 
THEN FRINT'"Womit ?7":GOTO 1080 

97997 FRINT m$(0):G0TO 108% 

19996 IF ob(o)“>spieler AND obfo)«“>-1 TH 

EN FRINT"So etwas sehe ich hier nicht." 

GOTO 1080 

1aaa1 IF o=9 THEN FRINT"Dazu sind mindes 

tens zwei Mann":FRINT'"erforderlich.":GOT 

0 1080 

ioaaz2 IF 0=14 AND spieler=5 THEN FRINT"D 

ie Halteseile sind zerschnitten.":fl(1i)= 
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-1:60T0 108% 
iaaas IF o=31 THEN FRINT"Okay - ich bin 
in der Ruestung. ":ob(F1)=-1:G0T0 1080 
1997905 FRINT m$(5):G0OTO 158% 
i1aa9 IF 0=5 AND spieler=24 AND ob (SF) =-1 
THEN FRINT ok$:ob(o)=&:0b (41)=-1:G0T0 1 
aaa 
11001 IF 0o=5 AND spieler«>24 AND ob (5) =- 
1 THEN FRINT"Wamit ?7":GOTO 1080 
1197975 FRINT m$(S):G0OTO 1680 
12aa0 IF ob(o)::-1 THEN GOTO 129660 
12551 IF 0o=4 THEN FRINT ok$:ob<(o)=spiele 
r:GOTO 10980 
1252 IF 0o=5 THEN FRINT ok$:ob(o)=spiele 
r:GOTO 1080 
129G@3 IF 0o=7 THEN FRINT ok$:ob(o)=spiele 
r:GOTO 1680 
12064 IF o=1Z THEN FRINT ok$:ob (o)=spiel 
er:GOTO 1980 
12995 IF o=15 THEN FRINT ok$:ob(o)=spiel 
er:GOTO 1086 
120096 IF o=16 THEN FRINT ok$:ob(o)=spiel 
er:GOTO 1980 
2557 IF o=14 THEN FRINT ok$ıob(o)=spiel 
er:GOTO 1580 
12598 IF o=F&a THEN FRINT ok$:ob(o)=spiel 
er:GOTO 1080 
12539 IF o=41 THEN FRINT ok$:ob (o)=spiel 
er:G0OTO 1980 
12010 IF 0=45 THEN FRINT ok$:ob(o)=spiel 
er:GOTO 1980 
12811 IF o=40 THEN FRINT ok$:ob(o)=spiel 
er:GOTO 1080 
120512 IF o=36& THEN FRINT ok$:ob (o)=spiel 
er:GOTO 1089 
12613 IF 0=35 THEN FRINT ok$:ob (o)=spiel 
er :G0TO 1080 
12614 IF o=31 THEN FRINT ak$:ob (o)=spiel 
er :sGOTO 108% 
12905 IF 0=5 AND ob (12)=-1 THEN PRINT ok 
$:ob(41)=spieler:GOTO 1086 
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12901 IF o=16& AND ob (54)=-1 THEN FRINT o 

k$:0b (34)=spieler:GOTDO 1980 

129905 FRINT m$(G):GOTO 1986 

15990 IF ob(Aa)=-1 THEN ab (FO) =20: PRINT 
m$ (56) : RETURN 

12010 IF ab(35)=-1 THEN ob (35) =20: FRINT 
m$ (6) :RETURN 

13020 IF ob(5S)=-1 THEN ob (SF) =Z0: FRINT m# 
(6) RETURN 

130990 RETURN 

14556 IF ob(34)%525 THEN RETURN 

14310 IF ob(ID):5>25 THEN RETURN 

14920 IF ob(41):525 THEN RETURN 

14930 IF ob (49)%:25 THEN RETURN 

141505 CLS:FRINT"Eine Stimme ertoent:":FR 
INT:FRINT 

14110 FRINT"Der grosse Humbug freut sich 
ueber ":FRINT 

14126 FRINT"Deine Gaben. Er wird seine Z 
auber-":FRINT 

14130 FRINT"kraft fuer Dich einsetzen."s 
FRINT:FRINT 

14145 FRINT"Gehe nun nach Hause, denn da 

rt wird"=FRINT 

14156 FRINT"bereits ein Fest vorbereitet 
„ um"=:FRINT:FRINT"das Erwachen aus dem 1 

angen Schlaf":FRINT:FRINT"zu feiern." 
141645 GOTO 14140 

151o5 IF ob(Z1)>-1 THEN RETURN 

15119 m$(O)="Ich bin zu schwer und versi 

nke.":G0OTO 4500 

12200 IF RND(1):0.5 THEN RETURN 

15210 m$()="Ich bin in eine Fallgrube g 

estuerzt.":GOTO 450590 

18050 IF o=1@ AND spieler=8 THEN FRINT"E 

s gelingt mir nicht.":G0TO 1080 

16515 IF o=11 AND spieler=8 THEN FRINT'"E 

s gelingt mir nicht.":GOTO 1986 

16520 FRINT m$(G):GOTO 18a 
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GOLDRAUSCH 


Viele Worte werden zu diesem Adventure wohl kaum noch nötig 
sein. Allerdings handelt es sich hier um die vollständige 
Version, das Abenteuer wird erst richtig beginnen, wenn es 
Ihnen gelungen ist, das bislang bekannte Territorium zu 


verlassen. 


Sie werden in die dunkle Welt einer alten Goldmine 
eindringen und es sich zweimal überlegen, ob Sie einen 
spontanen Einfall probieren, und damit wertvolle Zeit, die 
hier an der Brenndauer einer Lampe gemessen wird, 
verstreichen lassen wollen, oder ob Sie lieber auf Nummer 
Sicher gehen und nur durch irgendwelche Überlegungen 


gerechtfertigte Handlungen durchführen wollen. 
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REM KREIEREN 
REM * Goldrausch, Ver 1 * 
REM * (c) 1984 by Walkowiak * 
REM RR EHRE KERNE 


Sun 


= DEFINT a-z:ON ERROR GOTO 1780 
10a MODE 1:FAFER @: INK ©,0s:RBORDER “: FEN 1 
: INK 1,25: FEN ZI: INH 2,24 
za FLOT 420, 1790: DRAW 420, S6@: DRAW 540, 
Faas DRAW 640, 340:DRAW 455, 340:DRAW 45 
a, 170: DRAW 4460, 180: DRAW 460, S40:FLOT 
460, ZU: DRAW 530, 270:FLOT SEo, 340: DRA 
W550, Zams DRAW 540, Zum: DRAW 54a, 40: P 
LOT 540, 260 
21 DRAW SE, 27@: DRAW 550, 340: PLOT 355%, 
290: DRAW Han, 340: FLOT 64%, 340: DRAW SO 
a, ©:FLOT 440, GEDRAW H4m, ZOO: PLOT 640, 
230: FLOT 500, 200: DRAW 64%, ZUG: FLOT 660 
a, 1609: DRAW 449, 16M:FLOT 4206, 120: DRAW 
Sad, 120 
22 FLOT 520, 80: DRAW Z8a, BU: FLOT 740, 4 
G:DRAW 4806, 40: FLOT 449, G:DRAW Zac, Ms 
LOT 5460, 2450:DRAW 545, 2450:FLOT 580, 280 
:DRAW 649, 280: FLOT 626%, 320:DRAW A44u, 3 
2a: PLOT 450, 170: DRAW 420, 170: FPLOT 420, 
6a 
23 DRAW 440, TB: DRAW 645, FB: PLOT 430, 
370: DRAW 430, 580: DRAW 446, 390: DRAW 44 
oa, 490: PLOT Z80, 159: DRAW 150, 15%: DRAW 
1509, 200: DRAW 280, 2060: DRAW 280, 150:DRA 
W310, 18: PLOT F16, 180: FL0OT 280%, 206:D 
RAW 310, ZI0 
24 DRAW 31%, 180: FLOT 316, ZIa:DRAW 180, 
2350: DRAW 150, ZOO: FLOT 150, Z00:DRAW 16 
a, Z1M: DRAW 270, Z10M:DRAW 280, 200: FLOT 
279, Z10:DRAW 290, ZAO:PLOT 276, 190:DRA 
Win, 197G:DRAW 149, 160: DRAW 270, 1660:D 
RAW 270, 199 
25 FRINT CHRS$(150)53 STRING$ (18,154) Ss CHR#$ ( 
156) 
26 FRINT CHR&$ (149) 3 STRING$ (18, 32) SsCHRS& (1 
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49) 

27 FRINT CHR&$ (149) 35" GOLDRALISCH "; 
CHR$ (149) 

28 FRINT CHR$ (149): STRING$ (18, 32) sCHR$ (1 
49) 

29 FRINT CHR$(149);"ein Adventure von"; 
CHR$ (149) 

3% FRINT CHR$ (149) 35" "SCHRE(178)3 "rg W 
alkowiak "}CHR$(149) 

31 FRINT CHR$ (149), STRING$ (18, SZ) SCHR#& (1 
49) 

32 PRINT CHR$<(147)5STRING$ (18, 154) Ss CHRS$ £ 
153) 

33 LOCATE 3,25:PRINT CHR$(164)5" 1984 b 
y DATA BECKER, Duesseldorf"; 

4% FOR i=1 TO 8969: NEXT 

110 AR=F1 

120 ao=45 

1350 av=1l 

145 af=7 

159 spieler=1 

16560 wortlaenge=4 

179 wmax=40 

171 wertung=a 

180 zug=# 

185 imayx=4 

186 Im=&s licht=-1i:1lw=1:11=20 

19a DIM raum$ (ar) „durchgang (ar, 6) „ob$ (ao 
)„,rufname$ (ao),ob(ao),verb$ (av) 

?POO REM KUREN VERBEN 
29a1 DATA untersuche 

ZO2 DATA nimm 

ZaR DATA "leg " 

204 DATA oeffne 

205 DATA benutze 

206 DATA zerstoere 

267 DATA zuende 

268 DATA fuelle 

209 DATA betrete 

216 DATA loesche 

211 DATA befestige 
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A0A REM KHRERRHERReere GEGENSTAENDE 
521 DATA'"viele grosse Baeume", "Baeume",1 
302 DATA'"viele grosse Baeume", "Baeume",2 
395 DATA'einige Felsbrocken","Felsen",2 

354 DATA'"eine verfallene Holzhuette", "Hu 
ette",„3 

3595 DATA'"eine verschmutzte kKorbflasche", 
"Flasche",#9 

S9a6& DATA"Hanig"„"Honig",® 

3657 DATA"eine Holzkiste","Kiste",S 

aaa DATA'"ein klappriges Regal", "Regal",a 
359 DATA'etwas Sprengstoff", "Sprengstoff 
n : [%) 

sie DATA'"ein duesteres Erdloch","Erdloch 
iR P 19) 
311 DATA'"eine rostige Eisentruhe", "Truhe 
n P 16) 

S12 DATA"*Silbermuenzen*","Silber",& 

53153 DATA'eine duestere Felsenhoehle", "Ho 
ehle",5 

514 DATA'"einen grimmig dreinblickenden R 
aeren"„"Baer",© 

315 DATA'"zahllose niedrige Buesche", "Rue 
sche",4 

516 DATA'"mehrere Eisenstangen", "Eisensta 
nge",6 

317 DATA"*Nuggets#", "Nugget",5 

s18 DATA'"eine Eisenstange","Eisen",6 

319 DATA'eine Eisenkette","Kette",9© 

Ss20 DATA verrottete Schienenstraenge,Sch 
ienen, 7 

321 DATA ein Seil,Seil,® 

S22 DATA eine schwere Spitzhacke,Hacke,8 
S23 DATA eine alte Laterne,Laterne,8 

324 DATA das Gangende,Gangende, 9 

325 DATA einen Eisenhaken,Haken,® 

326 DATA einen Schacht ,Schacht,9 

327 DATA eine Bretterwand, Bretterwand, 19 
28 DATA Abbauschutt,Schutt,11 

329 DATA alte Saecke,Saecke,& 

30 DATA feuchte Steinwaende, Waende, 13 


219 


331 DATA eine vebelriechende Fluessigkei 
t,„Fluessigkeit,17 

SA2 DATA eine Leiche,Leiche, 18 

BEE *+Silberklumpen*, Elumpen,& 
*Goldmuenzen*, Muenzen, # 
Spinnweben „ Spinnweben, 20 

S:6 DATA eine galdene Wand, Wand,22 

337 DATA ein Schild,Schild,22 

A288 DATA *Gald*,Gold, 1 

337 DATA ein Seeufer,Ufer,„50© 

240 DATA den See,"See ",5%0 

>41 DATA goldene Steine, Steine,®& 

A422 DATA Zuendschnur, Zuendschnur,„® 

343 DATA ein Luntero,Luntera,-1 

244 DATA -—,Faradies,®% 

340 DATA eine alte Lore,Lore,?7 

Sad REM wre RAUMBESCHRETITEUNGEN 
„a1 DATA"im Wald",„1,1,1,2,8,0 

Sa2 DATA'"im Wald",„2,1,1,.3,9,9 

53 DATA"im Wald vor einem Felshang",0,4 
2,9,0,9 

5334 DATA"auf einer Waldlichtung"„7,0,5,€ 
5,0 

05 DATA'"auf einer Waldlichtung",„2,9,6,.4 
‚8,8 

06 DATA'"vor einem Eergqwerksstollen.",7, 
3, 
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597 DATA im Eingangsstollen,8,.6.09,9,0,0 
08 DATA in einer Nische des Ganges, 9.7, 
8,19,0,0 

>97 DATA am Ende des Ganges.,%,8,0,92,0,0 
„10 DATA in einem Seitengang, 11,0,8,9,9, 
(9) 

11 DATA in einer alten Abbaustelle,#%,1% 
„20,0,0,0 

Si2 DATA in der Hoehle,9,5,9,15,9,0 

S1S DATA in der Hoehle,%2,0,12,14,9,9 

514 DATA in der Hoehle,%,16,15,15,9,8 
210 DATA in der Hoehle,2,%,14,0,.9,0 

216 DATA auf einem Gang, 14,2,0,17,0,8 
517 DATA in einer Nebenhoehle,%2,0,16,0,8 
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„a 

Sie DATA auf dem Boden des Schachtes,9,# 
„19,0,0,© 

519 DATA auf einem kurvenreichen Gang, 24 
‚2,20,18,0,0 

520 DATA in einem breiten Gangq,%,%,21,19 
„a0 

521 DATA in einer alten Abbaustrecke,ZZ, 
11,11,20,11,.© 

S22 DATA in einem Felsendom, %2,21,09,0,27, 
[%) 

523 DATA in einem unterirdischen Faradie 
5,0,0,90,0,0,8 

524 DATA auf einem kurvenreichen Gang, 26 
„19,24,24,24,24 

525 DATA auf einem kurvenreichen Gang,Z 
„24,24, 29, 26,24 

526 DATA auf einem kurvenreichen Gang,Z7? 
„24,26,27,27,24 

527 DATA auf einem kurvenreichen Gang,25 
24,26,27,26,24 

528 DATA auf einem kurvenrreichen Gang,Z24 
„26, 26,27,0,8 

529 DATA auf einem kurvenreichen Gang, ®, 
27,239,27,9,0 

E30 DATA wor einem unterirdischen See,? 
‚9,0,0,0,8 

531 DATA in einer kleinen Hoehle,3%,%9,9, 
0,0,0 

6A REM Runner MITTEILUNGEN 
Sal m$(1)="Ich sehe nichts besonderes." 
sa m$(2)="So stark bin ich nicht !" 

Ba: m$(5)="Wie stellst Du Dir das vor "7" 
604 m$(4)="Der Baer greift sich den Hani 
g, und" 

a5 m$(5)="verschwindet in der Tiefe der 
Hoehle.'" 

sa oks=e"Q.k." 

697 REM ##axeeeeark 2. TITEL: EINLEITUNG 
7a8 CLS:FEN 1:FRINT" Herzlich Wi 
ilkommen zu":FRINT:FEN ZEFRINT TAB(1SICH 
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R$ (54) 5 "GOLDRAUSCH'"SCHR$ (34) :FRINT:PEN 1 

7925 FRINT STRING$ (40,208) 

71@ FRINT"Auf der Suche nach dem Glue 

ck in derneuen Welt begegneten Sie v 

or einigenTagen einem alten todkranken 
Mann, demSie in seinen letzten Stunde 

n Beistandleisteten." 

72G@ PRINT'"Aus Dankbarkeit berichtete er 
Ihnen vonseiner Goldmine und den dort v 

erstecktenkesten seines Vermoegens." 

73@ FRINT"Zahllosen Gefahren widerstand 

en Sie aufdem Weg darthins bald werd 

en Sie IhrZiel erreicht haben und es 
wird sichzeigen, ob der Alte die Wa 

hrheit ge-sprochen, oder im Fiebertra 

um geredethatte.'" 

74G FRINT STRING$ (46, 21©) 

81a FOR i=1 TO av 

815 READ verb$(i):verb#(i)=LEFT$ (verb$ (i 
) „wortlaenge) :verb$(i)=UFFER®$ (verb$ (i)) 

826 NEXT i 

83@ FOR objekt=1 TO ao 

855 READ ob$(objekt) ,rufname$ (objekt),.ob 
(objekt) :srufname$ (objekt) =LEFT$ (rufname# 
(objekt) „wortlaenge) srufname$ (ob jekt) =UF 

FPER$ ({rufname$ (objekt)) 

846 NEXT objekt 

845 FOR RAUM=1 TO AR 

850 READ RAUM$ (RAUM) 

855 FOR RICHTUNG=1 TO & 

860 READ durchgang (raum,richtung) 

865 NEXT richtung 

870 NEXT raum 

882 FRINTs INPUT” Wuenschen Sie Ratschl 

aege fuer Ihr weiteres Vorg 

ehen"seingabe$: eingabe$=UFFER$ (eingabe$) 

8979 IF LEFT$(eingabe$,1)="J" THEN GOSUR 

9935 

875 GOTO 1050 

8977 REM x###x##* I. TITEL: INSTRUKETIONEN 

995 MODE 1:FAFER Ga: INK ©,0: BORDER @:PEN 
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1:INH 1,25 

91a FRINT" ECFC — Ventures" 

920 FRINT TARB(1SICHR$(164)5" 1984 by J" 
SCHR$(178)3 "rg Walkowiak" 

925 FRINT STRING$ (49, 2068) :FRINT"Stellen 

Sie sich einen Roboter vor, denSie mit 
zahlreichen HKommandos steuernkoennen. 

950 FRINT"Ich bin dieser Roboter, und 
ich werdemich fuer Sie den Gefahren der 
verwegen-sten Abenteuer aussetzen." 

94% FRINT"Damit Sie mich sinnvoll agie 
ren lassenkoenren, werde ich Ihnen die 
Situationin der ich mich gerade befind 

e, jeweilsgenau beschreiben." 

E90 FRINT"Anschliessend sagen Sie mir 
mit zweiWorten, wie beispielsweise 
UNTERSUCHETUER, NIMM MESSER, was ich tun 

soll.":FRINT 
9&& FRINT"Darueber hinaus verstehe ich d 
ie Befehle INVENTUR, SCORE, VOKABELN, 
HELF SAVE % LOAD sowie ENDE 


97a FRINT STRING$ (46,21%) 

985 INH 5,12, 24: INH 2,24,12:FEN 3: FRINT 

. XTASTE>"S:FEN 2:FRINT" drueck 

en"s:FEN 1:FRINT" „.." 

9795 eingabe$s=INEEY$: IF eingabe$="" THEN 

o97& ELSE CLS:MODE 1:INkK 1,Z2:INK 2,14: INK 
3,26: RETURN 

io MODE 1:FAFER G: INK 9,0: BORDER G:FEN 
1:INK 1,2:FEN ZEINK 2,14:FEN F: INK 5,2 


1#1& leerzeile$=STRING$(45," ") 

1520 DATA Norden, Sueden, Westen, Osten, 
Oben, Unten 

15356 FOR richtung=ı TO 6 

1245 READ richtung$ (richtung) 

1956 NEXT richtung 

1979 CLS 

1989 FRINT:FRINT: zug=ezug+i:1welw+l 
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1584 IF lw=lm THEN GOSUR Taaa 

1985 IF wertung=wmax THEN GOTO 486460 

1999 LOCATE 1,1 

1091 REM Kanaren KEIN LICHT 
1592 IF licht=-1 THEN 110% 

1a93 FRINT"Ich weiss nicht genau. wo ich 
bin.":FRINT"Es ist zu dunkel, um etwas 

zu sehen." 

1595 FRINT:FRINT"Auch die Ausgaenge sehe 
ich nicht":FRINT"mehr !'":GOTO 1330 

1195 FOR zeile=1 TO 1a 

i111© FRINT leerzeile$; 

1129 NEXT zeile 

11368 LOCATE 1,1:FEN 1 

1145 FRINT"Ich bin "5 

1159 FRINT raum$ (spieler); :FRINT"." 

116%© FRINT"Ich sehe "5 

1175 FOR i=1 TO ao 

118& IF ob(i)i:>spieler THEN 1210 

1195 IF FOSCHS) +LEN (ob# (i ))+Zi=37 THEN F 

RINT ob$(i)5", "5:G0OTO 1210 

1205 IF FOSCHÜ) +LEN (ob$ (i))+25397 THEN FR 
INT:GOTO 119% 

1218 NEXT i 

1220 FRINT CHR$ (8) sCHRE (BI 5". " 

1230 FRINT leerzeile$:FEN 2 

1245 FRINT"Ich kann nach "s:gedruckt=# 
1259 FOR RICHTUNG=1 TO & 

1263 IF durchgang (spieler ,richtung)=& TH 

EN GOTO 1368 ELSE gedruckt=-i1 

1275 IF FOS(#Ü)=15 THEN FRINT richtungs$t 
richtung) s:GOTO 1390 

1285 IF FOSC#O) +LEN (frichtung$ (richtung) ) 
38 THEN FRINT", "srichtung$ (richtung)ss 
GoTa 1300 

298 FRINT",":FRINT richtung$ (richtung);5 
:GOTO 1300 

135065 NEXT richtung 

1719 IF gedruckt=& THEN FRINT"nirgendwa" 


1320 FRINT".":FEN 5 
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1340 IF wertung=wmasx THEN GOTO 484% 

1359 IF spieler=15 THEN m$(O)="Leider wa 

r dort der Baer.":FOR i=1 TO 100%: NEXT i 
:GOTO 4509 

1369 IF lwi=a THEN licht=# 

15370 IF ex=zug AND spieler=2% THEN m$ (%) 

="rrrumms ! — Auch mich hats zerrissen." 
:GOTO 4500 

1586 IF spieler:>18 AND ob (ZH)<«>-1 THEN 1 
icht=® 

1395 FEN Z:LOCATE 1,25: INFUT"Was soll ic 
h tun"seingabet:eingabe$=UFFER$ (eingabe$ 
I):FEN 2 

1395 rl=lm-lw: IF (rl>o AND r1£215) THEN F 
RINT"in"s1m-lws "Zuegen stehe ich im Dunk 
len !" 

1405 IF LEN(eingabe$)‘Z THEN 1500 

141& IF eingabe#="N" AND durchgang (spiel 
er,1)“>& THEN spieler=durchgang (spieler, 
1):FRINT"O.k.":GOTO 1086 

1425 IF eingabe$="S5" AND durchgang (spiel 
er,2):{50© THEN spieler=durchgang (spieler, 
ZI: FRINT"QO.k.":GOTO 1580 

1436 IF eingabe$s="W" AND durchgang (spiel 
er,32)%>@© THEN spieler=durchgang (spieler, 
DsFRINT"O.k.":GOTO 1080 

1445 IF eingabe$t="0" AND durchgang (spiel 
er,4):5>© THEN spieler=durchgang (spieler, 
4):FRINT"O.k.":GOTO 1986 

1459 IF eingabe$="OR" AND durchgang (spie 
ler ,S):{>6 THEN spieler=durchgang (spieler 
a)aFRINT"O.k.":GOTO 1680 

1465 IF eingabe$="U" AND durchgang (spiel 
er ,6):>© THEN spieler=durchgang (spieler, 
&)=:FRINT"O.k.":6G0TO 1080 

1470 IF LEN(eingabe$)«3 THEN FRINT"Dahin 
fuehrt kein Weg !":G0OTO 180 

148% IF LEN(eingabe$):8 THEN GOTO Zu06 
1497 REM x START INVENTUR 
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1509 IF LEFT$(eingabe$, I) «>"INV" THEN 60 
TO 1960 

1510 FRINT"Ich trage folgendes mit mir:" 
152% FOR objekt=1 TO ac 

1550 IF obtobjekt)=-1 THEN FRINT ob$(obj 
ekt) 

1549 NEXT objekt 

1559 GOTO 108% 

1566 IF LEFT$(eingabe$, 3)<>"SCO" THEN GO 
TO 165% 

1561 FRINT"Von"swmaxs "Punkten hast Du in 
"szugs "Zuegen":FRINT wertungs; "Funkte err 
eicht !":FRINT"Das entspricht einem Schn 
itt von"swertung/zugs "Funkten.":GOTO 158 
[%) 

1599 REM KHK SAVE GAME 
loa0 IF LEFT$(eingabe#, I)“ >"SAV" THEN GO 
TO 1700 

161@ FRINT"REC %& FLAY druecken ...":FRIN 
T"Unter welchem Namen speichern „zuunso. 
.."3STRING$ (10,8)5: INFUT eingabes 

1626 IF LEN(eingabe$) >16 THEN FRINT"Ritt 
e etwas kuerzer !":GOTO 161© ELSE eingahb 
e$="!"+teingabe$s+".SFIEL":OFENQUT eingabe 
$ 

1825 FRINT#9, spieler 

18350 FOR objekt=1 TO ao 

1631 FRINT#9,ob (objekt) 

16532 NEXT objekt 

1435 FOR raum=1 TO ar 

1636 FOR richtung=1 TO & 

1637 PRINT#9, durchgang fraum,richtung) 
1658 NEXT richtung 

1637 NEXT raum 

1645 FOR flag=1 TO af 

1646 FRINT#9, fl (flag) 

1647 NEXT flag 

165% CLOSEQLT 

166% FRINT ok$ 

1675 GOTO 1086 

16997 REM RAR LOAD GAME 
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1709 IF LEFT$(eingabe$,3)“>"LDOA" THEN GO 
To 18008 
171© FRINT"Cassette rueckspulen % PLAY d 
ruecken .„..":FRINT"Welches Spiel laden . 
„unnnunnn "S5STRINGS$(19,8)5: INFUT eingabe$ 
1729 IF LEN(eingabe$) 10 THEN FRINT"Das 
kann nicht sein !":60T0 1719 ELSE eingab 
e$="!"+eingabe$+t".SFIEL":OFENIN eingabe$ 
1725 INFUT#9, spieler 
1756 FOR objekt=1 TO ao 
1731 INFUT#9,ob (objekt) 
1732 NEXT objekt 
1735 FOR raum=i1 TO ar 
17356 FOR richtung=i TO & 
1737 INFUT#9, durchgang (raum, richtung) 
1738 NEXT richtung 
1757 NEXT raum 
1745 FOR flag=1 TO af 
17456 INFUT#9, fl (flag) 
1747 NEXT flag 
1759 CLOSEIN 
x1766% FRINT 0k$ 
17759 GOTO 1586 
1785 FRINT"Achtung Fehler !":BORDER F:RE 
SUME NEXT 
185 IF LEFT$(eingabe$, )<>"VOkE" THEN GO 
TO 19008 
1805 CLS:FRINT"Ich verstehe folgende Ver 
ben: ":FRINT:FRINT:RESTORE 
ieis FOR i=1 TO av 
1820 READ wort$:FRINT wort$ 
1830 NEXT i 
1849 GOSURB 1890 
1845 CLS:FRINT"und folgende Gegenstaende 
sind mir ":FRINT"bekannt:":FRINT 
1849 zeile=u 
1859 FOR i=1 TO ao 
1855 zeile=zeile+l 
186% READ wart$,wort$,x:FRINT waort$ 
1865 IF zeile=2& THEN GOSUR 1890 
1866 IF zeile=26 THEN zeile=1:CLS 
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1870 NEXT i 

1885 GOSUR 1899: CLS:G0TQO 108% 

1890 LOCATE 1,25: FRINT "Taste druecken" 
1895 eingabe$s=INEEY$: IF eingabe$="" THEN 
1895 ELSE CLS:RETURN 

1954 IF LEFT$(eingabe$, I)x>"INS" THEN GO 
TO 1959 

1916 GOSUR 9650 

1925 GOTO 1580 

1955 IF LEFT$(eingabe$, S){ "END" THEN GO 
TO 1978 ELSE CLS 

195% FRINT"Der Autor muenscht Ihnen mehr 
Erfolg":FRINT:FRINT"beim naechsten Mal 
I":FRINT:FRINT:FRINT:END 

1975 IF LEFT$teingabe$, I“ "INS" THEN GO 

TO Zaao 

171 IF spieler=4 AND ob <(19)=&@ THEN FRIN 
T"Fast waere ich in eine Grube gefallen. 
":G60T0 1080 

1972 IF spieler=4 AND ob (11): spieler AN 
D NOT fl(2) THEN FRINT"Ich brauche etwas 
„ um die Kette zu":FRINT"zerreissen !":6 
OTO 1580 

1975 FRINT"Erst sehen, dann denken !":FR 
INT"Und zuletzt handeln. ":GOTO 198% 

1977 REM KHK ENDE HELF 
2606 laenge=LEN (eingabe$) 

2160 FOR buchstabe=1 TO laenge 

2020 pruef$=MID$ (eingabe#$,buchstabe, 1!) 
2950 IF pruef$i>" "THEN NEXT buchstabe 
2040 everb$=LEFT$ (eingabe$,waortlaenge) 
2a50 rl=laenge-buchstabe 

Zus IF rli@ THEN Za90 

2979 eobjekt$=RIGHT$ (eingabe#,r1) 

ZO8R0 eobjekt$=LEFT$ (eoab jekt$,wortlaenge) 
Za90 FOR verbnummer=i TO av 

2190 IF everb$=verb$ (verbnummer) THEN 21 
Sa 

211% NEXT verbnummer 

2120 FRINT"Das Verb verstehe ich nicht ! 
":GOTQO 108% 
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2130 FOR o=1 TO ao 

2140 IF eobjekt$=rufname$ (co) THEN 2246 

2150 NEXT o 

2169 FRINT"Ich verstehe das Objekt nicht 
1":G50T0 1680 

2190 REM unte nimm leg 

oveffne benutze zerstoere 

2Zo0 ON verbnummer GOTO Sacaca, 2210, 7000,8 

09, 9009, 10000, 11000,12000, 13000, 14090, 1 

atarere) 

2239 REM KERKRKRRRaaaaeeee INV BEGRENZEN 

„210 anzahl=4: FOR i=1 TO ao 

ZZZ2S IF ob{ti)=-1 THEN anzahl=anzahl+i 

Z2So IF anzahl=imax THEN FRINT"Nein dank 

e. - Ich trage schon genug.":GOTO 108% 

2245 NEXT i 

225 GOTO Aaao 

POEB REM KERRRERKERHHHeER ende invtest 

2997 REM UF Lichtschalter 

zaGa& IF licht=-1 THEN licht=4:60T0 30929 

z#10 IF licht=& THEN licht=-1 

Tao Iw=2: RETURN 

4500 CLS: REM SFIELER TOD 

4655 FRINT"Auch das noch !"=:FRINT:FRINT 

mb (5) 

4616 FRINT:FRINT"Ich bin tod !":PRINT 

4626 INFUT"Soll ich es noch einmal versu 

chen "seingabe#t:eingabe$=UFFER$ (eingabe$ 

) 

4630 IF LEFT$ (eingabe$,1)="J" THEN RUN 

4645 GOTO 19765 

4850 CLS: REM SFIELER SIEGT 

481© FRINT"Herzlichen Glueckwunsch !" 

4826 FRINT:FRINT"Sie haben die Ihnen ges 

tellte Aufgabe": FRINT:FRINT"geloest und 

duerfen sich nun an einem":FRINT:FRINT"a 

nderen Adventure versuchen." 

4830 FRINT:FRINT:FRINT:FRINT:FRINT:END 

4997 REM #eaaeaeaaeeere SPIELZUG AUSFUEHREN 

aa IF obtol@ü>spieler AND ob{o)«>-1 THE 

N GOTO 509 
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5a02 IF o=1 THEN FRINT m$(1):60T0 1080 
50553 IF o=3 THEN FRINT m$(1):G0TO 1986 
Sa44 IF o=4 THEN FRINT"In einer Ecke ste 
ht ein Regal.":ob(8)=spieler:GOTN 1686 
Sa95 IF 0=5 THEN FRINT"Die Flasche ist g 
efuellt mit Honig.":GOTO 1486 

5506 IF o=&6& THEN FRINT m$(1):60T0 10488 
5597 IF 0=7 AND ob (9)=6 THEN FRINT"In de 
r Kiste liegt Sprengstoff.":60T0 148% 
sao8 IF o=B AND ob (5)=& THEN FRINT"Auf d 
em Regal steht eine Korbflasche. "sob(5)= 
spieler :G60TO0 1080 

5a69 IF o=8 AND ob (5)“>& THEN FRINT m$ (1 
):GOTO 1686 

sa1@ IF o=1% THEN FRINT"In dem Erdloch 1 
iegt eine Eisentruhe.'":ob(11)=spieler:G0O 
TO 158% 

5a11 IF o=11 AND NOT #11) THEN FRINT"Si 
e ist mit einer Eisenkette ver-":FRINT"s 
chlossen.":ob(19)=spieler:GOTO 168% 

Sal2 IF o=11 AND flti) AND NOT flL(2) THE 
N PRINT"Aussen sehe ich nichts besondere 
s.":GOTO 1080 

Sala IF o=11l AND fl<1) AND fl(Z) AND obt 
12)=&@ THEN FRINT"Sie ist voller Silbermu 
enzen.":ob(1?2?)=spieler:GOTO 1680 

5314 IF o=12 THEN FRINT"Genau das suche 
ich !":G0OTO 198% 

5915 IF o=13 THEN FRINT"Ich habe einen R 
aeren aufgeschreckt !":cob(14)=spieler:fl 
(M=5:6G0TO 1489 

3417 IF o=15 THEN FRINT" Zwischen den Eue 
schen ist ein Erdloch.":ob{(1@)=spieler:G 
OTO 108 

5918 IF o=16& THEN FRINT"Sie sehen sehr s 
tabil aus.":GOTO 16860 

59197 IF 0=17 THEN FRINT"Es handelt sich 
um pures Gold !":GOTO 1089 

saza IF 0=45 AND ok (Z1)=& THEN FRINT"Dar 
an haengt immer noch das Zugseil.":ob{? 
)=spieler:G0T0O 1089 


sa2i IF o=25 THEN PRINT"Es ist eine alte 
Dellampe.":6G0T0 108% 

SOa22 IF o=24 THEN FRINT"In der Wand stec 
kt ein Haken. ":ob (25) =spieler:60TO 1086 
aaa IF o=25 THEN FRINT"Tut mir leid - e 
r steckt zu fest. ":60T0O 108% 

Sso24 IF 0o=256 THEN m$(6)="Er ist sehr tie 
f - und ich war zu dicht am Ran 
d.":GOTO 4500 

sa2S IF 0=27 THEN FPRINT"Ihr Tischler war 
ein Koenner.":GOTO 198% 

sa2&a IF 0=28 AND ob(o)=& THEN FRINT"Ich 
habe zwei Saecke entdeckt.":zob (29)=spiel 

er:GOTO 10890 

3327 IF 0o=297 THEN FRINT"Sie sind gefuell 
t mit Goldstaub !":G0OTO 1989 

Saz28 IF o=F1 THEN FRINT"Sie ist oelig sc 
hmierig und klebt an":FRINT"den Fingern. 
":GOTO 1580 

39297 IF o=32 THEN FRINT'"Sie stinkt !" 
so IF 0O=32 AND ob (534)=& THEN FRINT"In 

der Jackentasche sind Goldmuenzen.":ob(53 
4)=spieler:GOTO 108% 

=a51 IF 0=35 THEN FRINT"Es sind gar kein 
e Spinnweben. "sab (o)=&G: ob (42) =spieler:FR 
INT"Es ist eine Zuendschnur.":GOTO 1089» 
s035 IF o=S& THEN FRINT"Es ist tatsaechl 
ich reines Gold.":60T0 148% 

934 IF 0=537 THEN FRINT"Darauf steht:":P 

RINT"Wenn erst mal die Gier erwacht":PRI 
NT'"der Tod auch oft Geschaefte macht.":6G 
OTO 15980 

sa3:6 IF 0=42 THEN FRINT'"Sie fuehrt hinau 
f zur Decke.":G60TO 1986 

5337 IF o=453 THEN FRINT"Es ist eins der 

veblichen Western-":;FRINT"feuerzeuge.":G 

OTO 1agac 

338 IF o=F2 AND f1l(4)=-1 AND ob (FI) «53-7 
THEN FRINT"Sie lag auf Silberstuecken." 
:ob (53) =spieler:GOTO 169% 

SB FRINT m$(1):G0OTO 108% 
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=900 REM gdegenstand richt vorhanden 
S9o1l IF o=1 AND spieler=2 THEN FRINT m$( 
1):G0TO 1680 
Saoa2 IF o=& AND ob (S)=-1 THEN FRINT"Er i 
st suess und gut. ":GOTO 1080 
so: IF o=& AND ob (5Ix>-1 THEN FRINT"Ich 
habe keinen Hanig !":G0TD 1080 
5954 IF o=9? AND (ob(T”)=spieler OR ob(7”)= 
-1) THEN FRINT"Er sieht sehr explosiv au 
s 1":,60T0 1080 
5905 IF o=16& AND ob{18)=-1 THEN FRINT"Ka 
um angerastet - wirklich stabil !":GOTO 
109890 
„Pia IF o=14 AND spieler=5 AND ob (14)=5 
THEN FRINT"Ich scheine seinen Appetit an 
zuregen. ":GOTO 158% 
so11 IF o=20 AND spieler=ZZ THEN FRINT"W 
enn erst mal die Gier erwacht":FRINT"der 
Tod auch oft Geschaefte macht !":6G0T0 1 
ago 
SF712 IF.0o=44 AND spieler=Z3 THEN m$ (ü) =" 
Ich bin im Totenreich.":GOTO 4300 
„99a FRINT"Sc etwas sehe ich hier nicht 
11:G0OT0 1680 
aa IF obto)“>spieler AND ob (o)“>-1 THE 
N GOTO 69050 
saal IF o=1 THEN FRINT m$(2):GOTO 108% 
aOaZ IF o=3 THEN FRINT m$ (2):G0TO 1686 
aaa IF o=4 THEN FRINT m$(5):60T0 108% 
654 IF 0o=8 THEN FRINT m$(2):GOTO 1680 
aa IF o=11l THEN FRINT m$(2):60T0 1580 
suoa& IF o=1%9 THEN FRINT m$(I):G0OTO 1089 
63507 IF o=13 THEN FRINT m$(I):G0OTO 198% 
aa IF 0o=15 THEN FRINT m$1(2):60T0O 108% 
sale IF 0o=5 THEN ob (5S)=-1:FRINT 0k$:G0T0O 
1980 
all IF o=& THEN ob (S)=-1:PRINT 0k$:G0TO 
1980 
salz IF 0=7 THEN ok (o)=-1:PRINT 0ok$:G0OTO 
1989 
6314 IF o=12 THEN ob (0) =-Ziwertungswertu 
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ng+10: FRINT ok$:G0TO 1586 

6015 IF o=14 AND spieler=5 THEN m$(G)="D 
er Baer hat mich erschlagen. ":50T0 4500 
8al& IF o=1%4 THEN ob (1I@)=-1:FRINT 0ok$:60 
TO 1980 

317 IF 0o=17 AND 15) THEN FRINT ok$:ob 
(o)=-1:50T0 1680 

Bal8 IF 0o=17 AND NOT #13) THEN m$(o)="E 
in Baer stuerzt sich auf mich. E 
r hat mich erschlagen. ":GOTO 455% 

6519 IF o=12 AND ob {o)=-Z THEN FRINT"Das 
Silber habe ich bereits. ":60TQO 1v8a 
aazea IF 0o=17 AND ob (o)=-2 THEN FRINT'"Das 
Gold habe ich bereits.":G0TO 10R0 

Gazl IF o=45 THEN FRINT m$(2):G0OTO 108% 
KAZE IF o=21 AND f1(4)=-1 THEN FRINT ok$ 
ob (o)=-1:60T0 198% 

us IF o=22 THEN FRINT ok$:ob(a)=-1:60T 
0 108% 

6a24 IF 0o=24 THEN FRINT ok$:ob(o)=-1:G0T 
Q 1080 

6425 IF 0o=25 THEN FRINT'"Er steckt zu tie 
ff im Fels.":GOTO 1080 

su26& IF 0=27 THEN FRINT m${(I):GOTO 1980 
627 IF 0o=28 THEN FRINT"Und was soll ich 
damit 7”":GOTO 1580 

sure IF o=31l AND ob (S):>-1 THEN FRINT'"Wo 

mit denn ?":GOTO 108% 

sul IF o=F1 AND ob (S)=-1 THEN FRINT ok$ 


ii" — die Flasche ist voll."ıfl(6)=-1:G0T 
0 1080 
Ban IF o=32 THEN FRINT ok$s" — oh was i 


st das denn "":f1(59)=-1:G60T0 1686 

GOAR IF o=F5 AND ob (to)=spieler THEN FRIN 
T ok$:ob (0) =-Zewertung=wertung+t1©9:G0T0 1 
ago 

sa34 IF o=34 AND ob(o)=spieler THEN FRIN 
T ok$sob (o)=-Ziwertung=wertung+t19:G0T0 1 
al=16) 

Bas IF 0o=35 THEN FRINT'Es sind gar kein 
e Spinnweben, es war":FRINT"eine Zuendsc 
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hnur."zsob(o)=G:0b (42)=-1:60T0 1980 

6837 IF 0=37 THEN FRINT ok$:ob (0o)=-1:G60T 
0 1680 

6a38 IF o=41 THEN FRINT ok$:ob (0o)=-1:60T 
D 1080 

a5? IF 0=42 THEN FRINT ok$:ob (0o)=-1:60T 
0 1680 

634% IF 0=43 THEN FRINT ok$:ob (o)=-1:60T 
O0 108% 

6541 IF o=Z1 AND NOT #114) THEN FRINT"Es 
ist an der Lore befestigt.":GOTDO 18a 
Ba42 IF o=Z3 THEN FRINT ok$:ob (o)=-1:G0T 

D 1080 

6245 IF 0=20 AND ob(o)=spieler THEN FRIN 
T ok$:ob (o) =-2:wertung=wertung+1%:G0TO 1 

985 

6944 IF 0=38 AND ob(o)=spieler THEN FRIN 
T ok$:ob (o)=-Zewertung=wertung+19:G0T0O 1 

38% 

ran IF o=9 AND (ob (T)=spieler OR oab(T7)= 
-1) THEN m$(@)="Bei der Beruehrung ist d 

er Sprengstoff esplodiert !":G0OTO 4500 

6921 IF o=1& AND ob (18)=spieler THEN FRI 

NT ok$:o0b(18)=-1:G0T0O 1086 

6918 IF o=1 AND spieler=2 THEN FRINT m$( 
2):GOTO 1980 

Pill IF o=Z2& AND spieler=22 THEN FRINT"W 

enn erst mal die Gier erwacht'":FRINT"der 
Tod auch oft Geschaefte macht.":G0T0O 19 
30 

6997 FRINT"So etwas sehe ich hier nicht 
11:G0TO 1989 

zasa IF 0o=16 AND ob (18)=-1 THEN FRINT ok 
$:0b (18)=spieler:GOTO 1080 

7821 IF ob(o):i>-1 THEN FRINT"So etwas be 
sitze ich doch gar nicht !":GOTO 1080 
7810 IF o=6 AND spieler=5 THEN ob {&)=0: f 
1(D=-1:FRINT m$(4):FRINT m$ (5) :ob(14)=0 
:GOTO 108% 

7928 IF o=3 AND spieler=S THEN ob (5)=Ü:f 
1(D=-1:FRINT m$(4):FRINT m$(5) ob (14)=0 
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:GOTO image 

7955 ob (o)=spieler:FRINT 0k$:60T0 1%8% 
8aGH IF ob(o)i>spieler AND ob(o)«“>-1 THE 
N FRINT"Soa etwas ist hier nicht !":GOTO 
198% 

gaas IF o=4 AND spieler=T THEN FRINT"Die 
Huette war bereits offen.":GOTO 1©8% 
eaia IF o=5 THEN FRINT ok$:GOTO 148% 
Bazo IF o=1l AND NOT flt1) THEN FRINT"Da 
s laesst die kette nicht zu.":GOTO 1980 
8525 IF o=11 AND flt1) THEN FRINT ok$3" 
- der Deckel klappt nach hinten.":fl(2)= 
-1:G60T0 168% 

gasa IF o=Z3 THEN FRINT 0E$:G0OTO 158% 
ROSS IF 0=29 THEN FRINT 05&$:G0OTO 1686 

Bga4a IF o=32 THEN FRINT"Tut mir leid -i 
ch bin nicht Frankenstein !":G60TO 1086 
8945 IF o=36 THEN FRINT"Wie 7?":GOTO 158% 

8797 FRINT"Ich verstehe nicht, was Du me 
inst.":G0TO 108% 

amaca IF o=16 AND ob{18)=-1 AND spieler=4 
THEN FRINT"Die Kette zerspringt.":fl(1) 

=-1:60T0 15890 

9aaS IF ob(aliispieler AND ob(o)«>-1 THE 

N GOTO 9050 

ala IF o=16 AND spieler=4 THEN FRINT"Di 

e Kette zerspringt.":f1l(1)=-1:60T0 1080 

99a IF a=45 THEN FRINT"Wie und wozu "7": 

GOTO 1086 

993509 IF o=21 THEN FRINT"Wie und wazu ?"s 

GOTO 15808 

99977 FRINT"Ich verstehe nicht, was Du me 
inst.":G0TO 1080 

ioosa IF o=1& AND spieler=4 AND ob (18)=- 
1 THEN FRINT"Die Kette zerspringt.":f1l(il 
)=-1:60T0 1089 

ioa1a IF a=1& AND spieler=4 AND ob (18)«> 
-1 THEN FRINT"Wamit 7":GOTO 1980 

isoza IF o=3& AND ob (ZEI=-1 THEN FRINT o 
k$ıdurchgang (22,1)=23:G0T0 1988 

19930 IF o=21 AND (obto)=spieler OR obt(o 
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J=-1) THEN FRINT ok$:f11(4)=-1:60T0 1080 
1oa45 IF 0=27 AND ok{Z2)=-1 THEN FRINT o 
k$:durchgang (19, 2)=12:G0T0 1080 

120950 IF 0=27 AND ob (ZEI“ 5-1 THEN FRINT" 
Womit 7":GOTO 1686 

139799? FRINT'"Ich verstehe nicht, was Du m 

einst !":GOTO 19860 

11lsaa IF ob(45)%>-1 THEN FRINT"Ich habe 
nichts zum Zuenden. ":GOTO 1080 

11919 IF 0=8 AND 1z:=@ THEN FRINT"In der 
Lampe ist kein Oel mehr !":G0T0 1080 
11la2a IF o=42 AND (obh(48)=-1 OR licht=-1 
I THEN FRINT"zzzisch !":ıfl(MI)=-liex=zugt 
Ssob (o)=Ür durchgang (A, PI=Fl:durchgang {3 
1,1)=39:G0TO 1080 

11:0 IF o=Z3 AND obiZR)=-1 THEN FRINT o 


k$3" — die Lampe brennt.":silm=l1:1lw=1:GOT 
0 1080 
11945 IF 0o=43 THEN FRINT ok$s" - der Doc 


ht glimmt.":GOTO 158% 

119978 FRINT"Ich verstehe Dich nicht.":GÜ 
TO 1086 

12500 IF o=Z3 AND (fli&) AND ob (ZI =-1) 
THEN Im=66: 1 (6) =0: lw=o: FRINT 0ok$:GOTO 1 
3a 

1zo20a IF o=5 AND spieler=17 THEN fl(6)=- 
1:FRINT"Die Flasche ist voll.":G0OTO 1980 
12030 IF a=43 AND ob(to)=-1 THEN FRINT"De 
r Docht glimmt.":GOTO 1586 

12798 FRINT"Ich verstehe nicht, was Du m 
einst.":GOTO 1880 

17900 IF o=13 AND spieler=5 THEN spieler 
=12:FRINT 0ok$:GOTO 1086 

159978 FRINT"Ich weiss nicht, was Du will 
st.":GOTO 1080 

149595 IF o=Z3 AND ok(o)=-1 THEN 11=1m-lu 
:FRINT 0&:$:GOTDO 1088 

149?8 FRINT"Ich weiss nicht, was Du will 
=t.":GOTO 1080 

imoco09 IF o=Z1l AND spieler=? THEN FRINT o 
k$zcbilao)=F:durchgang (9, 6) =18: durchgang (1 
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8,0)=9:60T0 108% 
159798 FRINT"Ich weiss nicht, was Du will 
st.":G60T0 1089 
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SJIPALZE HISIDTSIN 


Bitte lassen Sie sich durch den Reiz eines Grafikadventures 
nicht dazu verleiten, dieses Programm einzugeben, sofern 
Sie absoluter Newcomer auf diesem Gebiet sind und Ihre 
Programmierkenntnisse darüber hinaus nicht so weit 
fortgeschritten sein sollten, daß Sie sich die Antworten 
auf die sich Ihnen sehr schnell stellenden Probleme aus dem 
Listing holen können. 


Denn im Gegensatz zu den übrigen Adventurespielen, bei 
denen gefährliche Situationen erst durch Ihr Walten und 
Schalten entstehen, haben Sie bei Space Mission nach der 
Eingabe von RUN nur neun (9!) Spielzüge Zeit, um Ihr Leben 


zu retten. 


Und es wäre doch schade, wenn Sie die Lust an 
Spielprogrammen dieser Art verlieren, nur weil Sie kein 
Erfolgserlebnis haben ! 
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1 REM space mission 

2 REM (c) 1984 by Walkowiak 

RZ REM HR HR EHRE RR 
19 CLS:LOCATE 14, 22:FRINT"SFACE MISSION" 
2a LOCATE 1%, 23:FRINT" (cc) 1984 by Walkow 
iak" 

za FOR i=1 TO 8000: NEXT 

159 ar= TGsao= Scsav= 10saf= 11l:imax=tı 


zug=o 
1590 spieler= il 
179 wl= 4 


190 DIM raum$ (ar) ,durchgang (ar,6),ob$ (a 
o),rufname$ (ao) ,ob(ao) ,verb$(av),flclaf) 
PAO REM KUREERREREEREEERRRRRR ER VERBE 
N 

zi@ DATA untersuche 

zi1l DATA nimm 

212 DATA oeffne 

213 DATA druecke 

214 DATA "leg " 

215 DATA trage 

216 DATA fuelle 

217 DATA setze 

218 DATA benutze 

217 DATA tausche 

Aa REM KR ER KH GEGENSTAEND 


1 DATA das Zentralschaltpult,Fult,i 
Sa2 DATA einen Videoschirm,Videoschirm, 


1 

03 DATA „Schalter,# 

3564 DATA ein Terminal,Terminal,i2 

305 DATA einen Hyperkom,Hyperkom,& 

96 DATA einen Telekom, Telekom, & 

397 DATA „Antigravschacht,&@ 

398 DATA einen Einstieg,Einstieg,® 

3997 DATA einen Einstieg,Einstieg,& 

16 DATA ein riesiges Rlechgehaeuse, Geh 
seuse, 7 

511 DATA den Zentralcomputer „Computer ,® 
312 DATA ein Steckmodul „Steckmodul „—1 
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S13 DATA 
314 DATA 


315 DATA 
316 DATA 
317 DATA 
318 DATA 
319 DATA 
19 

S2a DATA 
32 DATA 
S22 DATA 
323 DATA 
524 DATA 
S2S DATA 
Sa26 DATA 
327 DATA 
32 DATA 


Module, Module,# 

einen Inbusschluessel, Inbus,© 
Habelbaeume,Kabel,7 

Rohre, „Rohre, Zi 

ein Hinweisschild,Schild,8 
„LAND,® 

einen Wandschrank „Wandschrank., 


‚Karte,® 

eine Tuer, Tuer,? 

den Autopiloten, Autopilot,® 
einen Schaltknopf,Kknopf,9 

eine Fritsche, Fritsche, 10 
nichts besonderes, Tisch, 1l 
‚MOVE, 

mehrere Tanks, Tank,Zi 

eine Sauerstoffflasche, Sauerst 


offflasche, 2% 


3297 DATA 
330 DATA 
[%) 

51 DATA 
E22 DATA 


ndreher,„® 
SSE DATA 


3534 DATA 
S3G DATA 
336 DATA 
337. DATA 
338 DATA 
330 DATA 
340 DATA 


541 DATA 


342 DATA 
343 DATA 
344 DATA 
5345 DATA 
346 DATA 
347 DATA 
348 DATA 
349 DATA 


einen Raumanzug,, Raumanzug,® 
einen 1@"er Schluessel,zehner, 


‚STOF,® 
einen Schraubendreher „Schraube 


den Leitstand,Leitstand, 14 
eine rote Tuer, Tuer,14 
‚SETC,@ 

ein Modul „Modul,6 
Medikamente, Medikamente,& 
„Koordinaten, ® 
Funkgeraete,Funkgeraete, 

eine Magnetkarte,Magnetkarte,® 
nichts besonderes, Schott, 16 
„*SD*,© 

„vIEW,© 

"nichts besonderes", „Bett, 0 
‚STAT,“ 

„SELO,® 

‚Transmitter,® 

nichts besanderes,kKontraolle,& 
‚Fassword,®© 
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sa DATA Faeckchen,Faeckchen, 15 


be L®) 

N 

s31 DATA 
2,8 

sa DATA 
ai DATA 
[%) 

Sa4 DATA 
535 DATA 
206 DATA 
„9,0,0,0 

547 DATA 
„0,0 

a8 DATA 


„22,0,0,08 


509 DATA 


9,0,22 


S1@ DATA 
[%) 

Sıi DATA 
S1l2 DATA 
‚2,0 

313 DATA 
„© 

14 DATA 
5159 DATA 
Si6h DATA 
0,24,0,0,0 
s17 DATA 
„18 DATA 
517 DATA 
maa DATA 
[8] 

Sal DATA 
‚0,0 

S22 DATA 
S23 DATA 
24 


DATA 


REM #x#xx#x##8%%* RAUMRBESCHRETEUNGE 


in der Hauptzentrale,S5,3,16,9, 


im Transmitterraum, 6,0,09,0,0,0 
in der Funkzentrale,1,1,0,0,0, 


am pilotenpult,2.0,0,6,0,0 
‚08,0,0,0,0,0 


vor einer Zugangskontrolle, 9,2 
in einem Zwischendeck ,%2,9,25,& 
in der astronomischen Abt.,®©,6 
in der oberen Folkuppel,9,9,0, 
in der Medostation, %2,2,9, 22,9, 


in 
im 


der Kantine,0,0,3@0,24,9,0 
Transmitterraum, 12,12,18,13 


in einem Frachtraum,0,9,12,9,0 
im Maschirenraum, 9,90,17,0,0,0 

in der Lagerhalle,%,2,0,0,0,© 

vor einem Sicherheitsschott,®, 
auf einem Gang, 19,19,26,14,0,8 
auf einem Gang, 18,18,27,12,9,© 
auf einem Gang, 17,17,292,0,0,0 

im Ersatzteillager ,%2,09,0,19,0, 
in einem Zwischendeck,#,0,25,© 
im Antigravschacht,2,%,10,8,9, 


im Antigravschacht,%2,4,92,%, 22, 


im Antigravschacht ,%,%,11,16,2 
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56 
525 DATA im Antigravschacht ,%,02,92,0,24, 
26 
226 DATA im Antigravschacht „%,92,%,17,25 
„27 
527 DATA im Antigravschacht,02,0,%,18,26 
„a 
28 DATA nannannn nn nn 
aaa DATA in einem Mannschaftsraum, 8,0,0 
„11,9,9 
6&@@ REM seamimisieaeeeeeee MITTEILLNGE 
N 
al m$(1)="Ich sehe nichts besonderes." 
a2 m$(2Z)="So stark bin ich nicht !" 
a3 m$(D="Wie stellst Du Dir das vor ? 
624 m$(4)="Das habe ich doch schon !" 
695 m$(5)="Ich verstehe nicht, was Du m 
einst !" 

89a ok$="Okay |" 
699 REM #8 hier evtl. 2. Titel 
800 FOR i=1 TO av 
81a READ verb$ (i):verb$(i)=LEFT$ (verb$1( 
i)„wl)sverb$(i)=UFFER$ (verb$(i)) 

za NEXT i 

83509 FOR objekt=1 TO ao 
840 READ ob$(objekt) ,rufname$ (objekt),o 
b(okjekt) srufname$ (objekt)=LEFT$ {rufname 
$(cobjekt) ,.wl)zrufname$ (ob jekt)=UFFER$ (ru 
fname$ (oabjekt)):NEXT objekt 
850 FOR raum=1 TO ar: READ raums$ (raum) 
845 FOR richtung=1 TO 6:READ durchgang 
raum, richtung) 

87© NEXT richtung:NEXT raum 
886  FRINT: INPUT" Wuenschen Sie Ratsch 
laege fuer Ihr weiteres Vo 
rgehen"seingabe$: eingabe#t=UFFER$ (eingabe 
$) 
876 IF LEFT$(eingabe$,1)="J"THEN GOSUR 
799:GOTD 19aa ELSE GOTO 1aa0o 
aa MODE 1:FAFER @: INK 9,0: RORDER G:PEN 
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1:INK 1, 
ala alt=a: FRINT" CFC — Ventures'":F 
RINT TAR(1SICHR$ (164)5" 1984 by J"CHRS$C 
178)5"rg Walkowiak 
92a PRINT STRING$ (40,268) :FRINT"Stellen 

Sie sich einen Roboter vor, denSie mi 
t zahlreichen Kommandos steuernkoennen 


39 FRINT"Ich bin dieser Roboter, und 
ich werdemich fuer Sie den Gefahren de 
r verwegen-sten Abenteuer aussetzen." 
945 FRINT"Damit Sie mich sinvoll agie 
ren lassenkoennen, werde ich Ihnen di 
e Situationrin der ich mich gerade befin 
de, jeweils genau beschreiben." 
FS0  FRINT"Anschliessend sagen Sie mi 
r mit zweiWorten, wie beispielsweise 
UNTERSUCHETUER, NIMM MESSER, was ich tu 
n soll."=PRINT 
96%  FRINT"Daruveber hinaus verstehe ich 


Be 1 
u 
” 
Dj 


die Befehle INVENTUR, SAVE, LOAD und 
ENDE." 

97a PRINT STRING$ (49,210): INK 3,12,24:1 
NE 2,24, 12:PEN 3: FRINT" Tas 


ter"ssFEN Z:FRINT" druecken"s:FEN 1:PRIN 
T 

986% eingabe$=INKEY$: IF eingabe$s="" THEN 
980 ELSE MODE 1:INK 1,265:INK Z,1:INE 7, 

2: RETURN 

190% INK 1,26:INKE 2,1:INH I,@:leerzeile$ 
=STRING$ (40,32) 

1921@ DATA Norden, Sueden „Westen, Osten, ob 

en,unten 

1a2a FOR richtung=il TO 6 

1850 READ richtung$ (richtung) 

194& NEXT richtung 

1555 WINDOW#1,1,40, 1,16 

1979 WINDOW#2,1,4%, 17,25: FAPER Z:INKE 2,1 
4:C1S5#0 

158#  FRINTrzug=szug+1:IF alti>spieler TH 
EN GOSUR Faaac 
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1996  LOCATE 1,1 

1190 FOR zeile=1 TO 7? 

1119  FRINT leerzeile$; 

1120 NEXT zeile 

113&@  LOCATE 1,1:FEN 1 

114© PFRINT"Ich bin "s:alt=spieler 

115@  FRINT raum$ (spieler) s:FRINT"." 
116559 FRINT"Ich sehe "s:gedruckt=® 

117& FOR i=1 TO ao 

1186 IF ob(i)“>spieler THEN 1210 

1195 IF FOS(C#G)+LEN(ob%$ (i)) +2%=37 THEN 
FRINT ob$(i)5", "5:GOTO 1205 

zoo IF FOS(#@)+LEN (ob$ (i)) +23 THEN F 
RINT:GOTO 1190 

1295  gedruckt=-1 

121% NEXT i 

1215 IF NOT gedruckt THEN FRINT"nichts 
besonderes "3 

1226 FRINT CHR$ (8) SCHRE$ (8) 5". " 

1230  FRINT leerzeile$ 

1244  FRINT"Ich kann nach "sjrgedruckt=® 
1250 FOR richtung=i1 TO & 

126569 IF durchgang (spieler ,richtung)=% T 
HEN GOTO 1306 ELSE gedruckt=-1 

127a IF FOS(#a)=15 THEN FRINT richtung®s 
(richtung) 5s:GOTO 1300 

1280 IF FOSC#@)+LEN (richtung$ (richtung) 
238 THEN FRINT", "srichtung$ (richtung)s 
:GOTO 1500 

1278  PRINT",":FRINT richtung$ (richtung) 
;:G0TO 1300 

1300 NEXT richtung 

1318 IF gedruckt=@ THEN FRINT"nirgendwo 


1 = 
s 


1520 FRINT".":PEN 3 
1350 IF fl(1)=& THEN FRINT"Alarm !"5:IF 
zug>11 THEN m$(m)="Ein Asteroid hat uns 
gerammt.":GOTO 45060 
1390 FEN T:LOCATE 1,9: INPUT"Was soll ic 


h tun"seingabe$:eingabe$=UFPER$ (eingabe$ 
) 


246 


1455 IF LEN(eingabe$):>Z THEN 150% 

1419 IF eingabe$="N" AND durchgang (spie 

ler,1)2>& THEN spieler=durchgang (spieler 

„L)2:FRINT 0ok$:G0OTO 1080 

1426 IF eingabet="S5" AND durchgang (spie 

ler,2)i>& THEN spieler=durchgang (spieler 

„2)sFRINT ok$:6G0TO 10980 

14509 IF eingabe$t="W" AND durchgang (zpie 

ler, 3)%>&© THEN spieler=durchgang (spieler 

„»):FRINT 0ok$:G0OTO 1080 

1445 IF eingabe$s="Q0" AND durchgang (spie 

ler,4):>0 THEN spieler=durchgang (spieler 

„A):FRINT 04$:G0OTO 108% 

14505 IF eingabe$="DOR" AND durchgang (spi 

eler,S)>® THEN spieler=durchgang (spiele 

ro): FRINT 0k$:G60T0O 10980 

1465 IF eingabe$="U" AND durchgang (spie 

ler,6)2>0 THEN spieler=durchgang {spieler 

„G)sFRINT 0k$:G60T0O 168% 

147% IF LEN(eingabe$)«“S THEN FRINT"Dahi 

n fuehrt kein Weg !":GOTO 10580 

1480 IF LEN(eingabe$)‘8 THEN GOTO ZUa6 

1477 REM Kae START INVENTU 

R 

159@a IF LEFT$(eingabe$, I) «>"INV" THEN 6 

DOTO 1608 

151% PFRINT"Ich trage folgendes mit mir: 

152% FOR objekt=1 TO ao 

1539 IF obfobjekt)=-1 THEN FRINT ob$ (ob 

jekt) 

1546 NEXT objekt 

1550  GOTO 1689 

1560 REM Hr ENDE INVENTUR 

l4daca IF LEFT$(eingabe$, F3)>"SAV" THEN G 

oTO 1700 

1&1&0  FRINT'"REC % FLAY druecken ... 
Unter welchem Namen speicher 

N oeeunnennn.n "SSTRINGS (10,8)5: INPUT einga 

bes 

162 IF LEN(eingabe$)>1%@ THEN FRINT"RBit 
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te etwas kuerzer !":GOTO 1610 ELSE einga 

be$="!"+eingabe$+t".spiel":QOFENOUT eingab 

e$ 

1653554  FRINT#9, spieler 

1645 FOR oabjekt=1 TO ao 

16509  FRINT#?,ob (objekt) 

1660 NEXT objekt 

167& FOR raum=i1 TO ar: FOR richtung=1 TO 
6: FRINT#9, durchgang (raum, richtung) :NEXT 
richtung:NEXT raum 

1680 FOR flag=1 TO af:FRINT#9, fl (flag): 

NEXT flag 

169%  CLOSEOUT:FRINT ok$:GOTO 10890 

17909 IF LEFT$(eingabe$, D%>"LOA" THEN G 

OTO 1960 

1719  FRINT"Cassette rueckspulen % FLAY 
druecken „..Welches Spiel laden „zsuuusu 
„."3STRING$ (19,8)5: INFUT eingabe$ 

1725 IF LEN(eingabe$) 1% THEN FRINT'"Das 
kann nicht sein !":G60TO 1719 ELSE einga 
be$s="!"+eingabe$+".SFIEL":OFENIN eingabe 
$ 

1730  INFUT#9, spieler 

1749 FOR objekt=1 TO ao: INFUT#9,ob (obje 
Ht)2NEXT objekt 

1754 FOR raum=1 TO ar: FOR richtung=! TO 
&: INFUT#9, durchgang (raum, richtung) »NEXT 
richtung:NEXT raum 

1760 FOR flag=1 TO af: INFUT#9, fl (flag): 

NEXT flag 

1775  CLOSEIN:FRINT ok$:G0TO 1680 

1905 IF LEFT$(eingabe$, ID)“ >"INS" THEN G 

OTO 19590 

1710 GOSUR Pam:G0OTO 197% 

19506 IF LEFT$(eingabe$, I)“ >"END" THEN G 

OTO Zac 

19&& MODE 1:FRINT"Der Autor wuenscht Ihn 

en mehr Erfolg beim naechsten Mal.":F 

RINT:FRINT:FRINT:END 

zao0  laenge=LEN (eingabe$) 

zaia FOR buchstabe=!1 TO laenge 
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2026  pruef$=MID$ (eingabe$,buchstabe, 1) 
2a30a IF pruef$i>" "THEN NEXT buchstabe 
25949  everb$=LEFT$ (eingabe$,wl) 

2950  rl=laenge-buchstabe 

Zu6& IF rlia THEN Za90 

2979  eobjekt#=RIGHT$ (eingabe#$,r]1) 

26868  eobjekt$=LEFT$(eobjekt$,wl) 

2594 FOR verbnummer=1 TO av 

z100 IF everb$=verb$ (verbnummer) THEN 2 
150 

211% NEXT verbnummer 

2126 FRINT"Das Verb verstehe ich nicht. 
":G60T0 184 

2ıiiS FOR o=1 TO ao 

214% IF eobjekt$=rufname$(o) THEN 2200 
2150 NEXT o 

216@  FRINT"Diesen Gegenstand kenne ich 
nicht.":60T0O 1580 

zZzaa ON verbnummer GOTO Zaac, 2210, 700 
Oo, BO00, 9aao, 1GGad, 11000, 12000, 1300 
a, 14000 

2azıia anzahl=@ FOR i=1 TO ao 

AZZO IF ob(i)=-1 THEN anzahl=anzahl+1 
2230 IF anzahl=imax THEN FRINT"Nein dank 
e. —- Ich trage schan genug. ":GOTD 1080 
2245 NEXT i 

2250 GOTO AKaac 

4553 MODE 1:CLS:REM SFIELER TOD 

451&©  FRINT"Auch das nach !":FRINT:FRINT 
m& (5) 

4520  FRINT:FRINT"Ich bin tod !":FRINT 
4535  INFUT"Soll ich es nach einmal vers 
uchen "seingabe$:eingabe$=LFFER$ (eingabe 


4545 IF LEFT$(teingabe$, 1)="T" THEN RUN 
453505  GOTO 19605 

4896 MODE 1:REM SFIELER SIEGT 

4816© FFRINT"Herzlichen Glueckwunsch !" 
4815 FRINT:FRINT"Sie haben Fia 3 rechtze 
itig erreicht," 

43820  FRINT:FRINT"und die Ihnen gestellt 
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e Aufgabe somit":FRINT:FRINT"geloest. Si 
e duerfen sich nun an einem":FRINT:FRINT 
"anderen Adventure versuchen." 

4830  FRINT:FRINT:FRINT:FRINT:END 

zsaaca IF ob(o)“ü>spieler AND ob(o)“>-1 THE 
N GOTO 5r00 

5aa5 IF o=1 THEN FRINT"Damit bediene ich 
u.a. den Autopiloten.":ob (22)=1:G60T0 18 
[=T%) 

sah IF a=Z AND flti)=© THEN FRINT"Der S 
chirm zeigt einen Asteroiden. ":GOTO 1980 
5957 IF o=2 AND fl(1)=-1 THEN FRINT"Ich 
sehe nichts besonderes. ":G60T0O 108% 

a9 IF o=45 THEN GOTO 51a 

5510 IF o=&4 THEN FRINT m$(1):GOTO 1980 
Sa1l5 IF o=25 AND ob (45)=6 THEN FRINT"Dar 
unter lag eine Magnetkarte.":ob (46)=11l:a 
1t=%: GOSUR Toaaa: GOTO 158% 

5614 IF o=8 AND spieler=23 AND fl(7)=a T 
HEN FRINT"Er ist verschlossen. ":GOTO 198 
“ 

Sal IF o=8 AND spieler=25 AND fl(8)=a T 
HEN FRINT'"Er ist verschlossen. '":GOTO 188 


“ 

sal6 IF o=8 AND spieler=ZT AND f1(7)=-1 
THEN FRINT"Er fuehrt in ein Zwischendeck 
.":G0TO 1580 

5917 IF o=8 AND spieler=25 AND f1(8)=-1 
THEN FRINT"Er fuehrt in ein Zwischendeck 
.":G0OTO 108% 

5317 IF 0=37 THEN FRINT m$(1):ob(S)=spie 
ler:ob (6)=spieler:ob (T9)=9:GOTD 108% 
wazea IF o=53 THEN GOTO Zuaaae 

SoaZ21 IF 0=44 AND ob (Z9)=& THEN FRINT"Dar 
unter liegt mein Raumanzug. ":GOTO 158% 
sa2s IF a=4 THEN FRINT"Die Ziffern von % 
bis 7? sind vorhanden. ":GOTO 1080 

su26& IF o=19 AND ob (I2)&>-1 THEN FRINT"I 

ch kann es nicht oeffnen.":GOTO 1980 
927 IF o=1@ AND ob (32)=-1 THEN FRINT"Da 

rin ist der Zentralrechner.":sob(11)=7:0b 
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(19)=4:G0TD 1080 

saza IF o=11 THEN FRINT"Ich sehe zahlrei 
che Moadule.":ob(1F)=spieler:ob (15) =0:G0T 
0 1980 

3927 IF o=15 THEN FRINT'Es sind Steckmod 
ule.":G0TO 10980 

saaa IF o=12 THEN FRINT"... ein normales 
Computermodul.":GOTO 1680 

5031 IF 0=14 THEN FRINT m$(1):60T0 158% 
Soaz IF o=15 THEN FRINT m$(1):560T0 108% 
Sana IF o=1& THEN FRINT"Sie gehoeren zum 
Belueftungssystem.":G0TD 148% 

saa4 IF 0o=17 THEN FRINT"Nur ein Wegweise 

r.":GOTO 1980 

Saas IF o=26 THEN FRINT m$(1):60T0 159% 
2o56 IF o=F3 THEN FRINT m$(1):ob(F6)=spi 


3537 IF o=22 THEN FRINT"Ich sehe Tasten: 
LAND MOVE STOF & SETC.":60T0O 158% 

sazB IF o=Z23 THEN FRINT m$(1):60T0 168% 
SoR97 IF 0=24 AND ob (T2)=& THEN FRINT"Dah 
inter liegt ein Schraubendreher.'":G0T0 1 

BO 

5a40 IF o=32 THEN FRINT m$(1):G60T0 168% 

5541 IF 0=27 THEN FRINT m$(1):GOTO 1980 

5542 IF 0o=28 AND f1(4)=&a THEN FRINT"Sie 
ist leer.":G0OTO 198% 

5943 IF 0=28 AND f1(4)=-1 THEN FRINT"SiIe 
ist gefuellt.":60T0 1989 

544 IF 0=29 THEN FRINT"Es ist meiner.": 

GOTO 108% 

5445 IF o=3& THEN FRINT m$(1):G60T0 1986 
5046 IF 0o=48 THEN FRINT m$(1):G0OTO 1086 

25a IF 0=24 THEN FRINT m$(1):60T0 1989 
5899 FRINT m$(1):G0T0 168% 

=9G& IF o=7 AND spieler=24 THEN FRINT m# 
(1):GOTO 10989 

5952 IF 0=7 AND spieler=23 THEN f1(5)=-1 
alt=G:0b (8)=spieler:G0OTD 1086 

S9a3 IF 0=7 AND spieler=24 THEN PRINT m$ 
{1):G0T0 1080 
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5954 IF 0=7 AND spieler=253 THEN fl(6ö)=-1 
:ob (P)=spieler:alt=1:60T0 108% 

5995 IF 0=7 AND spieler=2& THEN FRINT m# 
(1):60T0 1080 

5956 IF 0=7 AND spieler=27 THEN FRINT m$ 
(1):GOTO 108% 

5957 IF 0o=7 AND spieler=2Z2 THEN FRINT m$ 
(1):GOTO 198% 

5918 IF o=20 AND spieler=8 THEN FRINT"FI 

A III ist mit 151064 angegeben. ":GOTO 16 

= 16) 

5916 IF o=25 AND ob (40)=-1 THEN GOTO 108 

[6) 

sa20 IF o=32 THEN FRINT m$(1):60T0 1.99 

SI2Z IF o=8 AND spieler=25 AND durchgang 
(25,4)=©0 THEN FRINT'"Er ist verschlossen. 
":G0TO 158% 

5923 IF 0=47 AND spieler=Z THEN FRINT"Da 
s gleiche Modell.":60T0 198% 

5924 IF o=4 AND spieler=2Z THEN FRINT"Das 
gleiche Madell.":60T0O 108% 

5925 IF o=260 AND spieler=15 THEN FRINT"E 
s sind die Medikamente.":GOTO 108% 

599% FRINT'"So etwas sehe ich hier nicht. 
":GOTO 1580 

saoa IF ob(o)“>spieler AND obta)l«>-1 THE 
N GOTO 6900 

6aa5 IF 0o=48 THEN FRINT ok$:obto)=-l:alt 

=: GOSUR FTooan: GOTD 1080 

ala IF o=1Z2 AND ob(o)=-1 THEN FRINT m${ 

4):G0T0 108% 

s6a1ll IF o=12 THEN ob t12)=-1:FRINT 0%&$:60 
TO 1980 

6212 IF o=13 THEN FRINT"Ich habe ein Mod 

ul."sob<(36)=-1:G60T0 1689 

6@#13 IF o=14 OR 0=28 THEN FRINT ok$:sob(o 
)=-1:G60T0 108% 

6414 IF (o=360 OR o=5a) THEN FRINT ok$:ob 
(0o)=-1:alt=9:G6G0T0 1880 

6800 IF o=32 THEN FRINT ok$:ob (o)=-1:60T 

n 1080 
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6875 IF o=spieler THEN FRINT m$(2):6G0TO 
1989 

sraa IF 0o=27 THEN FRINT ok$:ob(o)=-1:G0T 

0 19805 

715 IF o=2& AND spieler=15 THEN FRINT © 
k$:ob (59)=-1:G0T0O 19860 

92H IF o=F2 AND ob (o)=& THEN ob (o)=-1:F 

RINT 0k$:G0TQO 1686 

6779 FRINT"So etwas sehe ich hier nicht. 
":G0TO 1080 

z7aaa IF 0o=41 AND ob (4&)=-1 THEN PRINT ok 

$:durchgang (16,4)=1:alt=2:G0T0 1086 

7905 IF 0=41 AND ob(46):>-1 THEN FRINT" 

Das geht im Moment nicht.":GOTO 1086 

zei IF o=8 AND ob (14)%5>-1 THEN FRINT"Ic 

h habe nichts zum oeffnen.":GOTO 108% 
7811 IF o=8 AND spieler=Z5 AND ob (14)=-1 
THEN FRINT ok$:durchgang (23,4)=7:f1(7)= 
-1:60T0 198% 

7@12 IF o=8 AND spieler=25 AND ob (14)=-1 
THEN FRINT ok$:durchgang (25, 4)=Z1:f11(8) 
=-1:60T0 10580 

7915 IF o=Z3 AND spieler=? THEN m$(o)="E 
ntweichender Sauerstoff entreisst mich i 
ns All.":6G0TO 4500 

zaza IF 0o=9 AND spieler=14 THEN m$(o)="E 
ine Funkenentladung aus dem Reaktorraumt 
raf mich.":GOTO 4500 

79979? FRINT m$(5):60T0 1580 

Boa IF 0=46 AND fl(Z)=-1 THEN FRINT"Kli 

ck !"sdurchgang (24,6)=25:G0T0 1089 

BH12 IF o=4& AND fl(ZI)=& THEN FRINT"Nich 
ts geschieht.":60TO 10984 

gH2G IF 0o=45 THEN GOTO Zezao 

ga21 IF o=43 THEN GOTO ZuFee 

ga2z IF o=42 THEN m$(o)="Das war die Sel 

bstzertstoerung. ":GOTO 4590 

8024 IF o=18 THEN m$(6)="Der Autopilot 1 
andete das Schiff in der Sonne.":G0OTQO 45 
[el®) 

ga25 IF 0=26 AND tm$="151063" THEN m$ (6) 
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="Die Fehlfunktion — falsche Koordinaten 
.":GOTO 4509 

gu2& IF o=26 AND flt1)=&4 THEN PRINT"Das 
Schiff weicht dem Asteroiden aus.":fl(1) 
=-1:60T0 108% 

8427 IF 0o=26 AND flit1)=-1 AND fltia)=a T 
HEN m$(@)="Keine Kursdaten gesetzt - das 
Ziel war eine Sonne.":GOTO 456% 

Ba28 IF o=26 AND fl(10)=-1 AND ob (5A)« Hl 
3 THEN m$(o)="Die Bewohner von FIA IIIh 
aben mich gelyncht, weil ich ohne di 

e Medikamente gekommen bin.":G0T0 4500 

80929 IF o=F1 THEN flt1)=G0:FRINT ok$:GOTO 
1080 

gsaxa IF 0=55 THEN INFUT"Koordinaten "stm 

$: IF tm$="1510664" THEN f1l(19)=-1:60T0 10 

89 

8a31 IF o=T5 THEN GOTO 1680 

BORZ IF 0o=26& AND fl(10)=-1 AND ob (56)=15 
THEN GOTO 4894 

8115 IF o=Z3 AND spieler=97 THEN m$(@)="E 

ntweichender Sauerstoff riss mich ins A 

11.":G60T0 4590 

8799 FRINT"So einen Enopf sehe ich hier 

nicht.":G0OTO 1980 

g9aac IF ob(o)“>-1 THEN GOTO 99700 

99aS5 IF 0=50 AND ob (50)=-1 AND spieler=1 

3 THEN FRINT ok$:ob (S%)=spielersalt=ds fl 
(11)=-1:G0T0O 1980 

Faa6 IF o=Sca AND ob(Sa)=-1 AND spieler=1 

= THEN FRINT ok$:ob (50)=spielersalt=os fl 
(11)=-1:60T0 1680 

9a10 FRINT ok$:ob(o)=spieler:GOTO 198% 

F9aa IF o=13 AND ob(F6)=-1 THEN ob (I6)=s 

pieler:FRINT 0ok$:GOTO 1989 

1aoaa IF 0=27 THEN FRINT"Ich habe den Ra 

umanzug angelegt.":ob(o)=-Z:ob (14)=-1:G0 

TO 1080 

19910 GOTD Kacn 

i1aaa IF 0o=28 AND spieler<:}Z21 THEN FRINT 
"Womit 7?":GOTO 1980 
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11919 IF o=28 AND spieler=2Z1 AND ob (A0)« 
3 THEN FRINT"Das geht im Moment nicht. 
":GOTO 1280 

ila2a IF o=28 AND spieler=21 AND ob (Te)= 
-1 THEN FRINT ok$:f1(4)=-1:60T0 1980 
11955 FRINT m$(5):G0TQO 1080 

1205065 IF o=38 AND spieler=12 THEN INFUT 
tm$:60TO 1080 

12005 IF o=38 AND spieler=2Z THEN INFUT t 
m&:GOTO 1580 

12015 IF 0o=49 AND spieler=4 THEN INFUT t 
mt: IF tm$="2205507" THEN durchgang (2,1)=1 
Ss:spieler=15:G0T0 1580 

120920 IF 0=47 AND spieler=&4 AND tms "22 
ass?" THEN m$(o)="Die Abwehrssysteme spr 
echen an.":GOTO 4500 

13000 IF 0o=47 AND NOT (spieler=12 OR spie 
ler=2) THEN FRINT"Ich sehe keinen Transm 
itter.":G0TO 1080 

15010 IF 0=47 AND spieler=12 AND tm#$i:'"& 
44664" THEN m$(&)="Meine Atome treiben i 
m Hyperraum. ":GOTO 4550 

15511 IF o=47 AND spieler=2 AND tm$i:"64 
4&h3" THEN m${#)="Meine Atome treiben im 

Hyperraum.":GOTO 4509 
13920 IF o=47 AND (spieler=12 OR spieler 
=2) AND tm$="644664" THEN spieler=2:6G0T0 

193% 

Za21 IF 0=47 AND (spieler=12 OR spieler 
=2) AND tm$="644443" THEN spieler=12:G60T 
a 1980 
13030 IF o=22 AND spieler=1 THEN fl(1)=- 
1:FRINT 0ok$:GOTO 1080 
139504 FRINT m$(5):G0TO 1089 
14950 IF o=153 AND spieler=7 AND ab (1F)=7 

THEN FRINT ok&$&:ob (12)=H:0b (Ib) =-1:f112) 
=-1:G0OTO 10980 
aaa WINDOW SWAF ©, 1:CLS:FRINT"Transmis 
sion received: ":FRINT 
zaa1@ FRINT"Terra an Raumschiff CC 464: " 
: FRINT 


255 


Zao2e FRINT"Atomarer Unfall auf FIA III" 
28950 FRINT"Medikament Cibarad 92 wird": 
FRINT"dringend benoetigt.":FRINT"Versarg 
ungsstation 87611 anfliegen. ":FRINT:FRIN 
T'"Eoordinaten:s" 
2a040 FRINT"8IG1lI 2 64-46-64": FRINT" 
Fassword: Z20559"sFRINT"FIA Ill: 1 
5-19-A43":FRINT"STATLUS: **Fehlfunktion#*" 
Z2u950 eingabe$s=INKEY$:IF eingabet="" THE 
N 22050 ELSE WINDOW SWAF 1,8: alt=4:6G0TO 
1080 
Za2a0 WINDOW SWAF ©, 1:CLS:FRINT"Status C 
heck:":FRINT 
za218 IF flt1)=& THEN FRINT"Autopilet OF 
F" ELSE FRINT"Autopilot ON" 
ZU229 IF f1(2)=& THEN FRINT"CFU defekt" 
ELSE FRINT"AlII Systems Go" 
Za23zS IF flt1)=& THEN FRINT:FRINT"ATTENT 
ION !"sFRINT'"Kollisionswarnung !" 
Zo24a IF f1l(ZI=-1 THEN FRINT"Standort: 6 
4463" 
2250 eingabe$s=INKEY$: IF eingabet="" THE 
N zZe250 ELSE alt=0: WINDOW SWAF 1,09:G0T0O 
1980 
z1300 PLOT Z20, 180: DRAW Fa, ZIM:DRAWU 4 
0, Z30: DRAW 450, 186: DRAW 2460, 185: DRAW 
249, Z30: DRAW 320, ZIG:FLOT 240, 230:DR 
Au 260, 250: FLOT Zao, 250: DRAW F80, 25603 
DRAW 400, ZI: FLOT 370, Z50:DRAW 3708, 26 
2: DRAU 270, 260 
Z130#1 DRAW 270, 25%: FLOT 250, Z6u: DRAW 2 
55, 320:DRAW Z90, I20: DRAW 396, 260: DRA» 
250, 26: FLOT 9, 190: DRAW 240, 1979: PLOT 
400, 190: DRAW 480, 195: FLOT 480, 450: DR 
Au 485, 1909: DRAW 5E0, 129: FLOT Sau, 4005 
DRAW 550, 570 
PIRG2 DRAW 550, 120: DRAW San, 129: FLOT 5 
55, 370:DRAW 640, ZBU:FLOT 366, 3609: DRAW 
Sha, 128: FLOT I30, ZZ: DRAW 390, Z20:DR 
Au 395, 19%: DRAU 330, 190: DRAW FI, zZ20: 
FLOT 319, 220: DRAW 250, ZU: DRAW 250, 19 
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G:rDRAW Z10, 19% 
21303 DRAW F10, 220: FLOT 257, 237:DRAW 3 
14, 237:DRAW 314, 246:DRAW 266, 246: DRAW 
257, 237: PLOT 326, 237:DRAW 38%, 237:DR 
Au 374, 246:DRAW 326, 246:DRAW 326, 237: 
PLOT 332, 243%: PLOT 338, 243:PLOT 347, 24 
3:DRAW 347, 7240 
21304 PLOT 356, 246:DRAW 356, 243: FLOT 3 
65, ZAI:DRAW 365, 246: FLOT 369, 243: FLOT 
309, 240: FLOT 299, 240: PLOT 292, 240: PL 
DT 287, 24a: FLOT 277, 240:DRAW 277, 244 
2132% RETURN 
2170& PLOT &, 384:DRAW 74, Z30:DRAW 7%, 
190: PLOT 10, 144:DRAW 70, 190: FLOT So, 1 
44:DRAW 95, 184:DRAW 96, 404:FLOT 90, 18 
4:DRAW 190, 184:FLOT 196, 154:DRAW 190, 
224: DRAW 456, 2724:DRAW 450, 154:DRAW 196 
‚ 154: PLOT 190, 224 
217@1 DRAW Za6, 244:DRAW 420, 244:DRAW 4 
50, 224:PLOT 446, 164:FLOT 446, 214:FLOT 
21&, 214:PLOT 210, 164:FLOT 214, 246: DR 
Au 414, 240: PLOT 426, 236:DRAW 212, 236: 
FLOT 210, 232:DRAW 426, 232: PLOT 398, 24 
4:DRAW 398, 312 
21702 DRAW 442, S16:DRAW 642, F16:FL0T & 
42, 320: DRAW 398, 326:DRAW 396, I12:DRAW 
390, 244:FLOT 450, 180:DRAW 642, 18%: FL 
OT 192, 2S2:DRAW 160, an 156, 228: 
DRAW 156, 186: FLOT 44, 312:DRAW 26, 12: 
FLOT 20, 284 
21703 DRAW 44, 284:FLOT 26, 256:DRAW 44, 
256:PLOT 44, 346: DRAW 26, 346: FLOT 20, 
Z28:DRAW 44, Z28:FLOT 44, 200:DRAW 26, 7 
Ga:FPLOT 20, 172:DRAW 44, 1772 
21726 RETURN 
218060 FLOT &, I99:DRAW 639, I99:FLOT 639 
‚ S59:DRAW 359, 359:DRAW 359, 159:DRAW & 
39, 159: PLOT 439, Z19:DRAW 359, F19: PLOT 
399, 279%: PLOT 439, 239 PLOT 519, 239: FL 
OT 519, 279: PLOT 479, 279:FLOT 399, 199: 
PLOT 404, 204 
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z1801 FLOT 374, Z34:FLOT 429, Z89:FLOT 4 
74, 244:FL0OT 469, 199: FL0OT 554, 189: FLOT 
Ss89, Z24:FL0OT 819, ZU: FLOT 589, ZI: FL 
OT 569, 314:FL0T 569%, 259: FLOT 289, 359 
DRAW 79, 359:DRAW 79, 2Z79:DRAW 289, 279: 
DRAW 289, S59: RETURN 
zzaaa FLOT-5, 188:DRAW 465, 188: DRAW 495 
„ 198:DRAW 495, S538:DRAW 575, 258:DRAW 5 
75, 148:FL0T 495, 1598:DRAW 595, 158: DRAW 
53095, S328:FL0OT 445, 188:DRAW 465, S9B:FL 
OT 420, F1m:DRAW 490, T10:DRAW 4ac, Far 
DRAW 389, F30 
Zzoo1l DRAW Z80, 10: DRAW F69, Z1@: DRAW 5 
GH, ZIG:DRAW FR, ZIG: DRAW 80, 270: DRAW 
450, Z7G:DRAW 459, ZPO: DRAWN 4209, ZFIA:DR 
Au 4205, S10:FLOT TO, 240:DRAW 350, Z10: 
DRAW 159, Z12: DRAW 120, 245: DRAW Fa, 24 
GrFLOT ©, 250 
Zzo092 DRAW 50, Z50: DRAW 5a, 7409: DRAW-1G, 
349: FLOT 50, 340: DRAW I, S60:DRAW Ma, 5 
SA: FLOT 40, 00: DRAW 45, 2909: RETURN 
22190 FLOT 75. 189:DRAW 75, 409: FLOT 75, 
189: FLOT 53, 147:DRAW 74, 188: FL0OT 254, 
188:DRAW 414, 188:DRAW 389, 248: FLOT Z3 
4, 188:DRAW 259, Z2Z48:DRAW 389, Z48:FLOT 
75, 258:DRAW 255, Z38:FLOT 395, 238: DRAW 
28, 238 
22101 DRAW 525, S98:FL0OT 525, ZI8:DRAW S 
85, 178:DRAW 585. 398:FLOT 585, 178:DRAW 
75, 178:DRAW 595, 398: FL0OT 385, 188:DR 
AW 385. 148:DRAW 375, 148:DRAW 375, 188: 
FLOT 265. 188:DRAW 265, 148:DRAW 275, 14 
8B:DRAW 275, 188 
221095 WINDOW SWAF ©,1:LOCATE 1%, 4:FRINT" 
Terra ist weit -"5:LOCATE 10,5:FRINT'"Ma 
ce Donald’s auch !":IF ob(4@)=11 THEN LOC 
ATE 19,12: FRINT CHR$(131)5 
221096 WINDOW SWAF 1,8 
zZ2110© RETURN 
zZzZaoa FLOT 50, S98:DRAW 5a, ZZBS:EDRAW ©, 
178:FLOT 120, 398:DRAW 126, 298: DRAU 220 
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ı 398: FLOT 120, 298:DRAW 116, 298:DRAW 1 
10, 398: FLOT 420, 248:DRAW 420, 778: DRAW 
46a, 278:DRAW 460, 248: DRAW 426, 248: PL 
DT 420, 2789 
22261 DRAW 436, 288:DRAW 456, 288:DRAW 4 
60, 278:FLOT 410, 240: DRAW 470, 240: DRAW 
480, Z2G:DRAW 4aa, 22G:DRAW 410, 240: PL 
OT 414, 235:PLOT 418, 235:PLOT 427, 235: 
FLOT 426, 23S:FLOT 430, 235:PLOT 4534, 28 
5; PLOT 438, 235 
22202 PLOT 442, 235:PLOT 446, 235:P 
50, 235: PLOT 458, 235:PLOT 462, 235 
466, ZIS:PLOT 468, ZI1:FLOT 465, 2 
OT 46%, 230: FLOT 462, 226:PLOT 466, 
FLOT 470, 22&:FLOT 45%, 229:DRAW 412, 
9:FLOT 430, 248 
22203 DRAW 430, 240: PLOT 452, 240:DRAW 4 
52, 248:PLOT 462, Z18:DRAW 422, 198:DRAW 
422, 168:DRAW 462, 168:DRAW 462, 198:DR 
Au 482, Z18:FLOT 4642, 198:DRAW 422, 198: 
FLOT 362, 398:DRAW 362, Z18:DRAW 382, 29 
B:DRAW 472, 298 
22204 DRAW 492, Z18:DRAW 492, Z98:FLOT 4 
22, 338:DRAW 382, 298: DRAW 3672, 318:DRAW 
422, 338:FLOT 472, 298:DRAW 432, 338:DR 
AW 492, S18:FPLOT 432, 338:DRAW 422, 338: 
FLOT 422, 398:DRAW 422, 338:DRAW 432, 33 
B:DRAW 432, 398 
22205 FLOT 332, ZB4:DRAW 426, 284:FLOT 4 
54, 284:DRAW 534, 284:DRAW 554, 364:DRAW 
524, 364:DRAW 494, 394: PLOT 332, 284:DR 
AW 312, 304:DRAW 332, 364:DRAW 362, 394: 
PLOT 332, 284:DRAW 332, 264:DRAW 421, 26 
4:FLOT 461, 264 
22206 DRAW 535, 264:DRAW 535, 285:FLOT 5 
35, 264:DRAW 555, 284:DRAW 555, 364:PLOT 
338, 264:DRAW 13, 284:DRAW 313, 04: PL 
DT 593, 404:DRAW 643, 354 
22220 RETURN 
22300 PLOT ©, 39@:DRAW 136, 326: 
„ 320: DRAW 646, 39M:FLOT 530, 20: DRAW 5 


zo, ZaG: FLOT 620, 145: DRAW 531, 1979: DRAW 
151, 199: DRAW 131. Z19:FLOT 131, 199:DR 

Au Fi, 179:DRAW 91, ZI9:DRAU 1, 339: FLOT 

-9, 179 

Zrz01 IF ob(Säa)=spieler THEN WINDOW SWAF 
%,1:LOCATE 13, 13:FRINT STRING$ (8, 232) :W 
INDOW SWAF 1,9 

ZEFZB RETURN 

22450 FLOT 12a, 400: DRAW 120, 2450:DRAW 1 

99, Z1@:FLOT 196, 499:DRAW 196, 270: DRAW 
20, 270: DRAW T20, 50: DRAN Zac, 370: DR 

AW ZE0, 370: DRAW Z2O, 4a: FLOT 250, 370: 

DRAW Z99, 419: FLOT Fon, I70:DRAW I50, 48 

GsFLOT 320, 390 

22401 DRAW 370, A400: FLOT F20, 270: DRAW 4 

50, 4950: FLOT 420, 400: DRAW F30, 310: DRAW 
ara, Z9M:DRAW 449, Aa: FLOT 10, 286: DR 

AW ZO0, ZB: DRAW ZOO, Fam: DRAW Fi, Tec: 

DRAW Fi1o, ZB: FLOT 590, 450m: DRAW Han, 37 

3: DRAW 620, 450 

22402 DRAW SZ, 370: DRAW SEE, 400: FLOT & 

„» 379: DRAW A238, 355 

224260 RETURN 

zen FLOT 160, 144:DRAW Z20, 184:DRAW 4 

60, 184:DRAW 520, 144:FLOT 46%, 184:DRAW 
460, 384:DRAW Saca, 454:FLOT 4646, 384:DR 

AW zZ20, 5384:DRAW 166, 4504:FLOT 220, 384: 

DRAW ZZU, 184:FL0T 280, 189:DRAW 410, 19 

9:DRAW 415, 194 

Z2661 DRAW 415, F69:DRAW 410, 374:DRAW 2 

75, 374:DRAW 270, 369:FL0OT 270, 369: DRAW 
270, 194:DRAW 275, 189:DRAW 280, 189: FL 

OT 425, 284:DRAW 425, 274:DRAU 430, 274: 

DRAW 430, 2Z84:DRAW 425, 284:FL0T 428, 28 

G:FLOT 428, 279 

22610 IF ((spieler=1& AND durchgang (16,4 
I)<x>1) OR spieler=9 OR spieler=6) THEN FL 

OT 343,188: DRAW 343,375:G0T0 226153 

22611 FLOT 274, Z41:DRAW 329, 241:DRAW 5 

29, 2Z66:DRAW 272, 2Z66:FLOT 328, 266: DRAW 
S22, 272:DRAW 270, Z72:DRAW 270, 276 
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22612 DRAW 318, 276:DRAW 318, 272:FLOT 3 
18, 276:DRAW 322, 276:DRAW 322, I64:DRAW 
27@, 304:FLOT 328, 2560:DRAW 350, 25&:DR 
AW 35%, 374:FLOT 3506, 250:DRAW 396, 226: 
DRAW 396, 374 
22613 RETURN 
22706 FLOT 60, S98:DRAW 60, 198:DRAW 10, 
148: PLOT 40, 248:DRAW 260, 248: FLOT 266 
x 398: DRAW 260, 248: DRAW San, Z4B:PLOT 3 
60, Z9IB:DRAW 360, Z48:DRAW 486, 248: FLOT 
48%, 398:DRAW 4860, 188:DRAW 640, 188 
22720 RETURN 
23000 FLOT &, 19@:DRAW 430, 190: PLOT 436 
. 400: DRAW 430, 1960: FLOT 430, 191:DRAW 4 
75, 146:FLOT 495, 146:DRAW 49%, 362: DRAW 
585, 272:DRAW 583, 144:FLOT 498, 355:DR 
Au 498, 145 
23626 RETURN 
23100 FLOT 120, 400: DRAW 120, Z3G:DRAW 3 
3, 143: FLOT-3, 17@:DRAW 66, 239:DRAW 60, 
ZI9:DRAW-3, 176:PLOT 60, 259:DRAW Gun, 8 
IB:FLOT 66, ZIB:DRAW Ah, ZINFLOT 32, 27 
S:DRAW 2, 275: PLOT 2, Z98:DRAW 32, 298: 
LOT 32, 328 
231@1 DRAW 2, Z25:PLOT 2, 348:DRAW 32, 8 
48:FLOT 32, 373:DRAW 2, 37I:FLOT 2, 398: 
DRAW 32, 398: FLOT 32, 248:DRAW 2, 248:FL 
OT 2, Z2I:DRAW 32, Z228:PLOT 2, 198:DRAW 
17, 198: PLOT 267, ZU8: DRAW 267, 178:DRAW 
497, 208 
2I1@2 DRAW 497, 178:DRAW 267, 2GB: PLOT 2 
57, 208:DRAW 5097, 208: DRAW 517, Z18:DRAW 
517, Z08:DRAW 567, Z18:DRAW 257, F18:DR 
AW 247, ZO8: DRAW 247, 218:DRAW 257, 208: 
FLOT 267, Z18:DRAW 497, Z18:DRAW 497, 30 
8:DRAW 267, 308 
23193 DRAW 267, Zi8:FLOT 247, Z48:DRAW 2 
27, 248:FLOT 227, 246:DRAW 247, 246: FLOT 
234, 244:DRAW 234, 238:DRAW 234, 254: PL 
OT 230, 254:DRAW 238, 254:FLOT 121, 230: 
DRAW 247, 236: FLOT 516, Z36:DRAW 636, 28 
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PLOT 519, 219 

231@4 DRAW 519, 225:PLOT 426, S18:DRAW 4 

26, Z&6:DRAW 477, 366:DRAW 486, 369: DRAW 
26, S69:DRAW 425, I66:DRAW 425, I21:PL 

OT 396, Z21:DRAW 396, 327:DRAW 39%, 327: 

DRAW 395, 321 

23120 RETURN 

23200 GOSUR F1204: BOSUE I1406: GOSUR F1IO 


ZF300 GOSUR 12a: IF Fl(5) AND spieler=?2 

THEN GOSUR 51466 

23305 IF f1(86) AND spieler=25 THEN GOSUR 
1 


23400 GOSUR 712090: G0OSUR F13099:GOSUR 314% 

3: RETURN 

236090 GOSUR 1200: GOSUR 14056: RETURN 
23700 GOSUR 31200: GOSUR 3149%: RETURN 
245909 FLOT ©, 16@: DRAW 50, 1656: DRAW 0, 
199:DRAW ©, 190: FLOT 69, 160: DRAW 120, 2 
24 FLOT 126, Z20:DRAW 120, 250 

24551 DRAW 609,,19G:FLOT 128, 250:DRAW 9, 
259: FLOT 120, Z30:DRAW 440, ZFG:FLOT 54 
6, 144:DRAW 4609, ZI0: DRAN 460, 4.0: FLOT 
4970, 370: DRAW 495, 2250: DRAW Sacm, 220: DRA 
W590, F60:FLOT 49%, 370:DRAW 570, 290:D 
RAW 570, 150 

24002 FLOT 490, 220:FLOT 566, 144:DRAW 4 
99, 220: PLOT 500, 2ZZ0:DRAW 571, 158:DRAW 
al, 220: FLOT 421, Foa: DRAW 411, FG: DR 
AW 412, Z9I9:DRAU 419, 299: DRAW 419, 302: 
DRAW 415, ZZ: DRAW 414, Z04:DRAW 416, 30 
4:DRAW 416, 297 

243093 DRAW 415, 297:RETURN 

390908 FAFER G:CLS#1:IF spieler:20 THEN 3 
HA 

saaa5 IF spieler>i@ THEN FZaa2a 

FO%1& ON spieler GOSUR 21T00, 27200, 21306 
‚21496, 21500, 27660, 21706, 21800, 22400, 220 
61%) 

saa11 FAFER Z:RETURN 


Fasz ON spieler-i10 GOSUR ZZ100, 27200, 22 
aaa, 22400, 20H, 226, 22700, 22700, 22700, 
etelele) 
Saa21 FAFER Z:RETURN 

9055 ON spieler-Z& GOSUR ZI100, 23209, 23 

aaa, 2340, ZIG, PI6aea, ZI7O9, 2260, ZI, 

24000 i 

Saal FAFER Z:RETURN 

1209 FLOT 180, 400:FLOT 186, 144:DRAW 1 

ea, 414:FL0T 450, 144:DRAW 450, 414: FLOT 
210, 354:DRAW 270, Z54:FL0OT I66, 354:DR 

AW 420, 354: FLOT 429, 294:DRAW Foo, 294: 

FLOT 270, Z94:DRAW 210, Z94:FLOT 210, Z5 

4 

Sıizal DRAW 270, ZE4:FLOT Iaa, ZI4: DRAW 4 

20, ZA4:FLOT 420, 174:DRAW Too, 174:FLOT 
270, 174:DRAW Zi, 174: RETURN 

1300 FLOT 360, Z34:DRAU 420, ZI4:FLOT 4 
20a, 174:DRAW Fa, 174:FL0T 279, 174: DRAW 
21%, 174:FL0OT 140, 544:DRAW 140, 184: DR 
AW 99, 144:DRAW 90, 584:DRAW 140, 3443 DR 
AW 13%, 344:DRAW 136, 184:DRAW 145, 184 
313@1 DRAW 15%, 184:DRAW 90, 154:FLOT 18 
3, 344: DRAW 90, 74: RETURN 

31450 FLOT 477, 344:FL0OT 477, 344:DRAW 4 
77, 179:DRAW 527, 139:DRAW 527, 384: DRAW 
477, 344:FL0T 477, 344:FL0T 487, 544:DR 
Au 477, 344: FLOT 527, 379: DRAW 487, 5344: 
DRAW 487, 179:DRAW 527, 144:FLOT 487, 17 
9: DRAW 477, 179: RETURN 

51590 WINDOW SWAF @,1:CLS:FRINT CHRS$ (150 
); STRINGS (22,134) 3 CHR$ (156) 

S151& FRINT CHR$(149)5" ID - Karte# 435 
GER "SCHRS$ (149) 

51529 FRINT CHRS$ (149) 3" fuer 

"SCHFR$ (149) 
Fi1aan FRINT CHRS& (1497); 
"SCHR$ (149) 

515453 FRINT CHR$(149)5 STRING$ (22,32) CHR 
$(149) 

51550 FRINT CHRS$ (149) 35" Security Level 


I 
” 
im} 
T 
27 
nn 
n 
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I ";CHRS$ (149) 


Ss15a# FRINT CHRE& (149) 5" (ce) TERRA IX. 
84 "SCHR$ (149) 


51578 FRINT CHRS(147)3 STRING$ (22,154) CH 
R&$(153) 

1589 eingabe$s=INKEY$: IF eingabe#t="" THE 
N 51580 ELSE WINDOW SWAF 1,8: alt=2:G0T0 
19890 


264 


EBWENITIRE 
EB GR 


EDWENINIRE 
INERPRREYER 


5 REM Adventure Editor 

& REM (c) 1984 by J. Walkowiak 

1@ MODE 1:CLEAR:DEFINT a-z:DIM ra$(&0),0o 

bs (60) „rn$ (60) ,ob (65) „vet (Fi) „mb (AR) „ac 
(39,60) ,be$ (I0, 60) , ads (Zu) ,du(60,6) 

za ar=0: ao=uı avse@s amd: af=s@: iZ=el:lielimil 
=" ADVENTURE EDITOR Ver 1.0":mZ 

$=STRINGS$ (2,10) sm2$=m2$+"Was wuenschen 5 
ie": m3$=STRING$ (40,154) 1m4$=STRING$ (40,5 

2) 

sa CLS:PRINT mi$:FRINT m3$; 

40 FRINT:FRINT: INFUT"Welches Adventure w 

ollen Sie bearbeiten "sna$s:FRINT:s INFUT"V 

ersion Nr. "sve$:na$=UFPER$ (na$) 

329 FRINT: INFUT"Copyright - Vermerk "scr$ 
:FRINT:FRINT m3$ 

6a GOSUR Haas 

290 CLS:FRINT mi$:FRINT mis 

21@ FRINT TAR(16)"©a — Daten" 

220 FRINT TAR(18)"1 - Raeume eingeben" 

230 FRINT TAR{1@)"2 - Objekte eingeben" 

246 FRINT TAR(19)"3 —- Verben eingeben" 

250 FRINT TAB(19)"4 — Startpositionen" 

2660 FRINT TAR(10)"5 — Raeume verbinden" 

27© FRINT TARi10)"& — Mitteilungen einge 

ben" 

286 FRINT TAR(19)"7 -— Bedingungen % Akti 

onen" 

290 FRINT TAR{10)"8 - Datentraeger" 

sa& FRINT TAR(15)"9 — Frogrammende" 

S16 FRINT mi$ 

320 PRINT TAR{lG)"Bitte waehlen Sie" 

330 GOSUR 10500 

5346 IF a=9 THEN en=-1:60T0 5100 

350 ON a+ri GOTO 3500, 1100, 1200, 1309,1400 
‚1500, 45aQ0, 100, Taaa, sa00 

497 REM ##x*#** LNTERFROGRAMM EIN/AUSGARE 

saa CLS 

s1@ LOCATE 1,1:FRINT m4$:LOCATE 1,1:FRIN 

T ti$ 
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man z=ezt+tl 

3360 LOCATE 25,1:FRINT t2$iz 

=45 FRINT mS$ 

soo LOCATE 1,25: FRINT ti$sseingabe$t="":Ll 
INE INFUT eingabe$ 

san IF LENleingabe$)=& THEN GOTO Zac 

Kia IF a=2 THEN FRINT:LOCATE 1,25: INFUT'" 

Rufname "srn$(z)ern$(iz)=UFFER$ (irn$ (z))s PP 
RINT 

&20 FRINT 

645 RETURN 

1105 CLS:ti$="Orte eingeben ":t2#$=" Raum 
Nr.:":t35$="lIch bin " 

1105 z=sar 

1119 GOSUR Sie: REM raeume drucken 
1120 ra$(z)=eingabe$ 

112C ar=z 

1150 GOTO 111% 

1177 REM ####r#eerer EINGABE ORTE ENDE 
12509 CLS:t1$="Objekte eingeben ":ıtz2#=" QO 
bjekt Nr.:":tS$="Ich sehe " 

zu z=ao 

1210 GOSUR Sie 

1220 ob$(z)=eingabe#$ 

1220 ao®z 

12509 GOTO 1210 

1290 REM ##x#%%%***%* ENDE EINGABE ORJEHTE 
13965 CLS:ti1$="Verben eingeben":t2$="Verb 
Nr.:"sti$="" 

1305 z=av 

1310 GOSUR 510 

1320 ve$(z)=UFFERS$ (eingabe#) 

1I20 av=z 

12369 GOTO 131% 

1370 REM #####**%%** ENDE EINGABE VERRBEN 
140505 CLS 

1419 1p=13 

1426 FOR i=1p TO ao 

1455 GOSUR 12002: REM liste drucken 

1445 LOCATE 1,23:FRINT"Objekt "jrn$tidys" 
in Raum Nr."s:1INFUT obti) 
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1459 Ip=i+l 
1460 CLS 
1475 NEXT i 
142% GOTO Zu 
1550 FOR rl=i2 TO ar 
1519 CLS5 
15315 FRINT 
1520 GOSUR 12000 
1538 FRINT"Raum"sri1s"fuehrt im Norden na 
ch"5:INFUT ducri,1) 
1545 FRINT"Raum"sri1s"fuehrt im Sueden na 
ch"3»INFUT du(ir1,2) 
553 FRINT"Raum"sri;"fuehrt im Westen na 
ch"3:1INFUT duir1, 
15693 FRINT"Raum"sri15"fuehrt im Osten na 
ch"3:INFUT duir1,4) 
1574 FRINT"Raum"iris"fuehrt oben nach"; 
: INFUT ducr1,@ 
158% FRINT"Raum"sri15"#fuehrt unten nach"; 
:INFUT ducri1,&) 
15909 NEXT r1:60T0 208 
1606 CLS 
1695 nb=a 
16597 nb=nb+i 
1598 IF nbrav THEN GOTO za 
1699 rn$(o)="(weiter?" 
1615 CLS:FOR i=oa TO ao 
1620 FRINT isrn$(idy"\N"5 
1636 IF FOSC#HÖ)+LEN (rn$(i+1))>3TB THEN FR 
INT 
1645 NEXT i 
16556 FRINT:FRINT m3$:FRINT CHR#$ (10) 
1795 FRINT"Aktion auf Verb "ive$(nb)s3" u 
nd Objekt Nr."s 
171© INFUT ob 
1715 IF ob=# THEN GOTO 1697 
1800 CLS 
181% FRINT"Eitte Bedingungen fuer die Ak 
tion "ıFRINT ve${nb)3}" "irn$(ob)5" einge 
ben" 
1815 FRINT m35# 
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1820 FRINT:FRINT:FRINT TAR{S)" R -— Obje 
kt ist im Raum":FRINT 


1855 FRINT TAR{(S)" I — Objekt ist im In 
vebtory":FRINT 
1849 FRINT TARB(S)" N — Objekt ist nicht 


im Raum" :FRINT 

18559 FRINT TAR(S)" Fx — Flag ist gesetzt 
1860 FRINT:FRINT TAR(SI" Gx — Flag ist g 
eloescht":FRINT 

1878 FRINT TAR{S)" Sxx- Spieler ist im R 
aum ax" 

19880 LOCATE 1,20: FRINT m3$3:FRINT"Alter 
Code ===: "5bc$(nb,ob) »FRINT 

1999 INPUT"Bedingung "sbc#$ (nb,ob):bc$ (inb 
‚ob’=UFFER$ (bc$ (nb,ob)) 

1995 CLS:FRINT ve$(nb)s;" "sob$(ob)5" bew 
irkt, wenns" 

1966 FRINT bce$(nb,ob)5" erfuellt, folgen 
de Aktion: ":FRINT m3$3 


1719 FRINT TAR<(S)"V —- "irns$i{ob)}" versc 
hwindet":FRINT 
1929 FRINT TAR<(S)"I - "irns$fob)3" kommt 


ins INV":FRINT 
19350 FRINT TAR(5S) "Nas Objekt xx erschei 
nt neu":sFRINT 
19454 FRINT TAR(S)"Dey- Durchgang nach Ra 
um "= FRINT 
1950 FRINT TAR(S)"Ssx- Spieler nach Raum 
»2":FRINT 
19&5 FRINT TAR(S)"Fx — Flag x setzen":FR 
INT 
197a FRINT TAB(5)"Lx — Flag x loeschen": 
FRINT 
1790 FRINT TARB(S)"Mai4- Meldung xx ausgeh 
en"sFRINT 


1999 FRINT TAR<(5S)"T —- Spieler stirbt":F 
RINT 
zaa0 FRINT TAR{S)'"E - Ende, da gewonnen 


2005 FRINT m3$35 
210 FRINT"Alter Code ===}r "sac$inb,ob) 
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220 INFUT"Aktion "sac$(nb,ob):ac$(nb,ob 
)=UFFERS$ (ac${inb,ob)) 

239 GOTO 1610 

2040 REM *###*## ENDE AKTIONEN % BEDINGUN 
G 

zaga GOSUE 1aacce 

2999 REM Xu KENNDÄATEN 
008 CLS:FRINT'"Kenndaten des Adventures 
"ına$ 

Sala FRINT mi$:PRINT 

3520 FRINT" Raeume: "jar 

sa55 FRINT" Objekte: "sao 

5545 FRINT" Verben: "jav 

aan FRINT" Beding: "sinb 

3966 FRINT" Mittlg.:"jam 

3979 IF lo THEN FRINT" "safs"benutzte Fl 
ags" 

zog FRINT mis 

S@96 FRINT"Spielbeginn in Raum: 

n H sp 
3196 FRINT:FRINT"erforderliche Eingabela 
enge: "jwl 

FZ116 GOSUR 1accac 

F120a GOTO Zue 

E99F REM KRRRKHEHERREEER HR Mitteilungen 
4509 CLS:FRINT"Mitteilungen eingeben" 
4315 FRINT mS5$ 

4520 am=amti 

45365 FRINT ams: INFUT m$ (am) 

454% IF LEN(m$(am))=& THEN am=am-1:60TO 
zaa j 
4550 GOTO 4029 

4560 REM #rRH#t#HReeek Ende MITTEILUNGEN 
4979979 REM DATENTRAEGER: speichern/laden 
=a93a CLS:FRINT"1 -— Sicherheitskopie" 
zsa1l@a FRINT:FRINT"Z — Datei zur Bearbeitu 
ng laden" 

Sozo GOSUR 1oaac 

saza IF axil OR a>rz THEN GOTO Seza 

5645 ON a GOTO 5100, 5500 

5106 CLS:FRINT"Bitte warten. ":FRINT:FRIN 


271 


T"Speicherung laeuft ... 
5116 OPENQLT na#$ 

129 FRINT#7,na&: FRINT#9F, vet: FRINT#9,cr#$ 
:FRINT#F, wl 

Ss136 FRINT#?, ar: FRINT#9, ao: FRINT#F,avı FR 
INT#9, am: FRINT#9,sp:FRINT#9, af 

145 FOR i=1 TO ar: FRINT#F,ra$ti):NEXT i 
Ss1oa FOR i=1 TO ao:FRINT#7,0b$ (i)sFRINT# 
9,rn$&(i):FRINT#9,ob (i)s NEXT i 

168 FOR i=1 TO av:FRINT#9, ve$(i)sNEXT i 
5175 FOR i=1 TO am: FRINT#9,m$ (1) NEXT i 
s180 FOR x=1 TO ar 

„19 FOR y=1 TO & 

S2o0 FRINT#I,du(a,y) 

S210 NEXT y 

220 NEXT 2 

2ao FOR »=1 TO av 

3248 FOR y=1 TO ao 

250 FRINT#9,bc#$ {x,y) 

S2ah NEXT y 

270 NEXT »% 

S280% FOR x=1 TO av 

27a FOR y=1 TO ao 

wär FRINTHF,AC${X.Y) 

3310 NEXT y 

az NEXT % 

S3Ea CLOSEQUT:IF en THEN CLS:END 

„346 GOTO Ze0 

2299 CLS:FRINT"Ritte warten. ":FRINT:FRIN 
T"Daten werden geladen .„.." 

551 OFENIN na# 

nei INFUT#9,na$: INFUT#9, ve$: INFUT#9I,cr#$ 
: INFUT#9, wl 

zosa INFUT#9, ar: INFUT#9, ao: INFUT#9,avı IN 
FUT#9?, am: INFUT#9, sp: INFUT#9, af 

54a FOR i=1 TO ar: INFUT#F,ra$ti):NEXT i 
aaoß FOR i=1 TO ac: INFUT#?,0b$ (i) s INFUT# 
F,rn&(i)s INFUT#9,ob (i):NEXT i 

ao60 FOR i=1 TO av: INFUT#9,ve$(i):NEXT i 
5570 FOR i=1 TO am: INFUT#F,m$ (i):NEXT i 
80 FOR s=1 TO ar 
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ssoa FOR y=1 TO & 
Sa INFUTHF, duia,y) 
Sol NEXT y 
Saas NEXT x 
Sahn FOR z=l TO av 
S645 FOR y=1 TO ao 
Sasse INFUT#9,bc$ (n.Yy) 
aaa NEXT y 
2672 NEXT % 
ShBn FOR x=1 TO av 
apa FOR y=1 TO ao 
>75 INFUT#P,ac#$ (H,y) 
571@0 NEXT y 
5720 NEXT % 
57232 CLOSEIN 
2745 GOTO Zua0 
GPIFP REM KHK vebrige Daten 
sa CLS:FRINT"Ritte geben Sie die nach 
notwendigen Kontralldaten ein: ":FRINT 
mis 
“ala FRINT:FRINT: INFUT"Wortlaenge"swl 
aan FRINT: INFUT"Startraum "53sp 
Kara FRINT:INFUT"Anzahl Flags"saf 
a4 RETURN 
19000 a$=INKEYE: IF as="" THEN 1o0c0 
19910 a=VAL (as) sRETURN 
12000 LOCATE 1.1 
12501@©0 FRINT"Liste der moeglichen FRaeume: 
":FRINT mis 
izo2a FOR il=1 TO ar 
12550 FRINT ilsras(ilds 
12040 IF FOSCHO)+LEN<ra$(il+1)) >58 THEN 
FRINT 
ao5o NEXT il 
120665 FRINT 
12670 RETURN 


273 


274 


REM RER TREE RR HH ER ER RER 
REM * Adventure System 1.8 * 
REM * Adventureinterpreter * 
REM #= (c) 19837,1984 by J. Walkowiak * 
REM OHRRREREEE ER ETRERERE RER ER 
ELS:FRINT" Adventure System 
1.0": FRINTSFPRINT" by Joerg Wal 
kowiak":FRINT:FRINT:FRINT:FRINT" 
(23 1984 by DATA BECKER":DEFINT a-z 
ia FOR i=1 TO 5066:NEXT 
453 CLEAR:CLS: INFUT"Welches Adventure wol 
len Sie spielen "ına$ 
a start=-1:G0SUR 906 
69 INFUT#9,na$:CLS:FRINT na$5: INFUT#9, ve 
$:FRINT"Version "sve$: INFUT#9,cr$: INFUT# 
F,wl:FRINT cr$ 
78% INFUT#9, ar: INFUT#9, ao: INFUT#9, avı INFU 
T#97, am: INFUT#9, spieler: INFUT#9, af 
75 DIM raum$ (ar) ,ob$(ao),rn#$(ao),obtaca), 
verb$ (av) .mt(tam).„fl(at),ac$(av,ao),bc$(a 
vaaco),adst (Zu), durchgang (ar,6) 
858 FOR i=1 TO ar: INFUT#9,raum$ (i) NEXT i 
Pa FOR i=1 TO aos INFUT#9,0b$ ti): INFUT#9, 
rufnames(i): INFUT#9,ob (i) srufname$(i)=LE 
FT$(rufname$t(i) wl):NEXT i 
105 FOR i=1 TO av: INFUT#9, verb$(i):verb# 
(i)=LEFT$(verb$(i) ,wl):NEXT i 
118 FOR i=1 TO am: INFUT#9,m$(i):NEXT i 
za FOR x=1 TO arı FOR y=1 TO 6 
156 INFUT#9,durchgang (x,y) 
1450 NEXT ysNEXT x 
1509 FOR x=1 TO av:FÜOR y=1 TO ao 
165 INFUT#9,bc$(x,.y) 
17& NEXT yıNEXT x 
180 FOR x=1 TO av:FOR y=1 TO a0 
195 INFUT#P ,ac$ (x,y) 
za0 NEXT yıNEXT » 
210 CLOSEIN 
gas GOTO 1caa 
939 MODE 1:FAFER 2: INK 0,0: BORDER G:FEN 
1:INkE 1,25 


PrABüne 
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1a FRINT" CFC — Ventures" 

925 FRINT TARIISICHRE(16A4)5" 1984 by I" 
sSCHR$&(178)5"rg Walkowiak'" 

925 FRINT STRING$ (49, 258) :FRINT"Stellen 
Sie sich einen Roboter vor, denSie mit 
zahlreichen Kommandos steuernkoennen. 
’3& FRINT"Ich bin dieser Roboter, und 
ich werdemich fuer Sie den Gefahren der 
verwegen-sten Abenteuer aussetzen." 

948 FRINT"Damit Sie mich sinnvoll agie 

ren lassenkoennen, werde ich Ihren die 
Situationin der ich mich gerade befind 

e, jeweilsgenau beschreiben." 

950 FRINT"Anschliessend sagen Sie mir 
mit zweikarten, wie beispielsweise 
UNTERSUCHETUER,. NIMM MESSER, was ich tun 

soll.":FRINT 
965% FRINT"Daruveber hinaus verstehe ich d 
ie Befehle INVENTUR, INSTRUETIONEN u 
nd ENDE.":IF NOT start THEN GOTO ?8% 
975 start=0: FRINT STRING$ (40,210) :FRINT 
" Bitte warten „.. Spiel wird geladen ! 
"ıpg$="!"+na$:OFENIN pg#$ 
F8H INK 3,12,24: INK Z, 24,12: FEN 3: FRINT 
e = TASTEH"SaFEN Z3FRINT" drueck 
en"ssFEN 1:FRINT" „.." 
990 eingabe$=INKEY$: IF eingabe$="" THEN 
99a ELSE CLS:MODE 1:INKE 1,2: INH 2,14: INH 
3,26: RETURN 
1aa5 MODE 1:FAPER ©: INH ©,0: BORDER S:FEN 
1: INK 1,Z:FEN ZEINE 2,14:FEN FI: INK 3,26 


1910 leerzeile$=5TRING#$ (40,32 

1928 DATA Norden, Sueden, Westen, Osten, 
Oben, Unten 

1859 FOR richtung=i1 TO & 

1940 READ richtung® (richtung) 

1950 NEXT richtung 

1970 CLS 

158% FRINT:FRINT 
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io? LOCATE 1,1 
11568 FOR zeile=i1 TO 10 
1115 FRINT leerzeile$;3 
1125 NEXT zeile 
1139 LOCATE 1,1:FEN 1 
1148 FRINT"Ich bin "5 
1150 FRINT raum$ (spieler)s:FRINT"." 
11646 FRINT"Ich sehe "s:gedruckt=® 
1170 FOR i=1 TO ac 
1189 IF obti)i}spieler THEN 1210 
1195 IF FOSCHÖ) +LEN (ob$ (i))+2Xi=37 THEN F 
RINT ab$(i)5", "5:G0T0 1205 
i2a0a IF FOSCHÖ)+LEN (ob$fi))+2537 THEN FR 
INT:GOTO 1190 
230 gedruckt=-1 
1210 NEXT i 
1215 IF NOT gedruckt THEN FRINT"nichts b 
esonderes "} 
1220 FRINT CHR& (BI) SCHRE CIE". " 
1236 FRINT leerzeile$:FEN 2 
1240 FRINT"Ich kann nach "segedruckt=o 
1250 FOR RICHTUNG=1 TO 6 
1269 IF durchgang (spieler ,richtung)=# TH 
EN GOTOD 1700 ELSE gedruckt=-1 
1270 IF FPOSCHÜ)=15 THEN FRINT richtung&( 
richtung) s5:GOTO 13090 
12280 IF Be re 
“38 THEN FRINT", "srichtung$ (richtung): 
GOTO 1590 
1275 FRINT",":FRINT richtung®$ (richtung)s 
:GOTO 1580 
1308 NEXT richtung 
1515 IF gedruckt=@ THEN FRINT"nirgendwo" 


1320 FRINT".":FEN 3 

ıiF20 FRINT STRING$ (49,154) 35 

13975 FEN F:LOCATE 1,25: INFUT"Was soll ic 
h tun" seingabe$:eingabe$=UFFER$ (eingabe$ 
):FEN 2 

14905 IF LEN(teingabe&t):>Z2 THEN 1500 

141& IF eingabe$="N" AND Birehdanaksgtet 
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er,1)@:>© THEN spieler=durchgang (spieler, 
1: FRINT"O.k.":G0OTO 1980 

1420 IF eingabet="S5" AND durchgang (spiel 
er„2)@£:>6© THEN spieler=durchgang (spieler, 
ZI: FRINT"O.k.":GOTO 108% 

1435 IF eingabe$s="W" AND durchgang (spiel 
er, >)£%:>©0 THEN spieler=durchgang (spieler, 
SIsFRINT"O.k.":GOTO 1080 

1445 IF eingabe#="0" AND durchgang (spiel 
er,„4)%>© THEN spieler=durchgang (spieler, 
4):FRINT"O.k.":GOTO 168% 

14505 IF eingabe$="DR" AND durchgang (spie 
ler,Ss)2>@ THEN spieler=durchgang (spieler 
«)aFRINT"O.kK.":GOTO 1680 

146% IF eingabe$="U" AND durchgang (spiel 

er,6)2:©0 THEN spieler=durchgang (spieler, 

ö):FRINT"Q.k.":GOTO 158% 

1475 IF LEN(eingabe$)“S THEN FRINT"Dahin 
fuehrt kein Weg !":GOTO 108% 

1485 IF LEN(eingabe$):8 THEN GOTO Zaao 
1497 REM rare START INVENTUR 
15009 IF LEFT$(eingabe$, 2): >"INV" THEN GO 

TO 16650 

1512 FRINT"Ich trage folgendes mit mir:" 
Ss20 FOR objekt=1 TO ao 

15530 IF obftobjekt)=-1 THEN FRINT ob$ (obj 

ekt) 

1546 NEXT objekt 

1550 GOTO 1989 

156&0 REM Kr erere ENDE INVENTUR 
1599 REM Kuna SAVE GAME 
iooa IF LEFT$(eingabe#, P)x>"SAV" THEN GO 

TO 17008 

162& OPENALT "spielstand" 

1625 FRINT#9, spieler 

16855 FOR objekt=1 TO ao 

1631 FRINT#9,ob (ob jekt) 

14532 NEXT objekt 

1635 FOR raum=1 TO ar 

1436 FOR richtung=i TO & 

1437 FRINT#9, durchgang (raum, richtung) 
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15358 NEXT richtung 

1637 NEXT raum 

1845 FOR flag=1 TO af 

1646 FRINT#9,fl(flag) 

16447 NEXT flag 

1659 CLOSEQUT 

1670 GOTO 158% 

16997 REM KuHcKcaaereere LOAD GAME 
1709 IF LEFT$(eingabe$, 3)“>"LOA" THEN GO 

TO 1950 

1725 OFENIN"spielstand" 

1725 INFUT#9, spieler 

17509 FOR objekt=1 TO ao 

1731 INFUT#9,ob (objekt) 

1732 NEXT objekt 

1735 FOR raum=1 TO ar 

1736 FOR richtung=1 TO & 

1737 INFUT#9, durchgang (raum, richtung) 
1738 NEXT richtung 

1737 NEXT raum 

1745 FOR flag=1 TO af 

1746 INFUT#9,fFl(flag) 

1747 NEXT flag 

17560 CLOSEIN 

1772 GOTO 1580 

1790 IF LEFT$(eingabe$, 3): H"INS" THEN GO 
TO 1959 

1710 GOSUR Jac 

1920 GOTO 1580 

1955 IF LEFT$(eingabe$, SC H"END" THEN GO 
TO zZeao ELSE CLS 

19&5 FRINT"Der Autor wuenscht Ihnen mehr 
Erfolg":FRINT:FRINT"beim naechsten Mal 
I:FRINT:FRINT:FRINT:END 

Z20090 laenge=LEN (eingabe$) 

ala FOR buchstabe=i1 TO laenge 

2520 pruef$=MID$ (eingabe$,buchstabe, 1) 
za3a IF pruef$i>" "THEN NEXT buchstabe 
2040 everb$=LEFT$ (eingabe$,wl) 

2050 rl=laenge-buchstabe 

2060 IF rlioa THEN Z69& 
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2070 
zZa80 
za 
2160 
zı10 
2120 


eob jekt$=RIGHT$ (eingabet#,r1) 

eob jekt$=LEFT$ (eobjekt$,wl) 

FOR vn=1 TO av 

IF everb$=verb$ (vn) THEN Z130 
NEXT vn 

FRINT"Das Verb verstehe ich richt 


":G60T0 10980 


2130 
2140 


2150 


FOR o=1 TO ao 
IF eobjekt$=rufname$(o) THEN ZZeo 
NEXT o 


2160 FRINT"Ich verstehe das Objekt nicht 

1":GOTO 1980 
REM vn % o sind verb/objekt nummern 
REM ###x#***%*%* BEDINGUNGEN ERFUELLT 


2198 
2199 
zzaoa 
azıe 
2220 
at 
2260 
2270 


2280 


290 
zao 
10 


2 
Bi 
25 
2320 
PETE) 
2340 
2345 
2350 
2569 
2369 
25370 
2380 
THEN 
2385 
2599 
2400 


2465 
241& 


FOR ab=1 TO LEN(bc#$&(vn,o)) 

bd$(ab)=MID$ (bc$(vn,„o),„ab,1) 

NEXT ab 

FOR aa=1 TO LEN(ac$ (vn,o)) 

ad$(aa)=MID$(ac$(vn,o),aa,!) 

NEXT aa 

REM bedingungen in bd$ 
aktianen in ad# 

ab=ab-l:aa=aa-l 

„=ier=-l:ok=-1 

„=rtlsok=(ok AND er)ser=& 

IF x=ab+t1 THEN 2500 

IF bds(s)iH"R" THEN Z3560 

IF ob(o)=spieler THEN er=-1 

GOTO ZF1e 

IF bdsim)i>"I" THEN 2370 

IF ob(o)=-1 THEN er=-1 

GOTO Z310 

IF bd$(x)>"N" THEN ZIP 

IF kob(o)@:spieler AND abto)):t>-1) 

er=-1 

GOTO Z510 

IF bd$(x)i>"S" THEN 2410 


ri$=bd$(x+1)+bd$ix+Z)exuen+tZ: IF spie 
ler=VAL (r1%) THEN er=-1 


GOTO Z319 
IF bds(y)z "FR" THEN 2450 
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2420 IF 1 (WALibd$ (z+1)))=-1 THEN 27440 

2430 “=2xr1:60T0 2450 

2446 er=-1l:2=x+1:60T0 27510 

2450 IF bd$(x)@>"G" THEN 2310 

24605 IF NOT F1(VALtbdsism+1))) THEN 27486 

2479 x=2+1:3G0T0 2310 

2499 er=-1:ıx=4+1:G0T0 7310 

2495 GOTO ZE10o 

2500 IF NOT ok THEN FRINT"Das geht im Mo 

ment nicht !":GOATO 1080 

53997 REM *#** ALLE BEDINGUNGEN ERFUELLT 

4990 FRINT"Okay !" 

49799 REM ##rk#####8H# AKTIONEN AUSFUEHREN 
SOHN Kelser=n 

a4 zent] 

Sana IF »>AA THEN 1986 

aaa IF ads(in)@>'"V" THEN 5986 

070 ab (o)=4:G0TO 58408 

sagen IF adt(x)@>"1" THEN 516 

97H ob<(o)=-1:G0T0 5940 

slaa IF ads$(x)Z:"N" THEN 5170 

110 GOSUR 5506: 0b (pa)=spieler:sac#(vn,o) 

="Maa's GOTO 5946 

„120 IF ads(x)Z>"F" THEN 5146 

159 GOSUR Söoaaıfl(pa)=-1:60T0 5940 
=149 IF ad$(x)@>"L" THEN 5166 

150 GOSUR Seas: fl(pa)=0:G0TO 594 

Ss1äsa IF ad$(x)£>"M" THEN 5180 

„170 GOSUR 5502: FRINT m$ (pa) :GOTO 5946 
„180 IF ads(n)£>"E" THEN Sec 

„195 GOTO Auac 

eos IF ad$(x)i>"D" THEN 5940 

Sala GOSUR 5700 

2220 durchgang (spieler,pl)=p2 

=2350 IF pl=1 THEN pf=2 ELSE IF pi=2 THEN 
p3=1 ELSE IF pl=3T THEN pF=4 ELSE IF pi= 

4 THEN p3=3 ELSE IF pi=5 THEN pi=& ELSE 
IF pl=& THEN p35=3 

5243 dufpZ2,p?)=spieler:GQOTO 50940 

san m l$zad$(x+l)+tads(n+2) ry=n+2:pa=VAL 

r1$):PFETURN 


281 


sand ril$=sad$ (utl)inentrl:ipa=VAL (ri1$):RETU 
RN 

7909 p1=VAL (ads (x+1)):p2=VAL tad$(a+Z))ıy 
=4 +2: RETURN 

sans CLS:FRINT"Herzlichen Glueckwunsch ! 
"»PRINT:FRINT 

6315 FRINT"Du hast es geschafft !":FRINT 
az FRINT STRING$ (17,10) :END 
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VENITIRERIN 


Dieses Programm wird Sie mit allen Fragen konfrontieren, 
die beantwortet sein müssen, um ein komplettes, 


funktionsfähiges Adventureprogramm zu erzeugen. 


Vor dem Start von "Venturefix’ muß die Handlung stehen, Sie 
müssen eine Liste aller Räume, Gegenstände, Wörter und auch 
Mitteilungen erstellt haben, wie Sie auch sämtliche 


Aktionen bereits textuell formuliert haben sollten. 


Die kreative Arbeit wird Ihnen also nicht abgenommen 
werden, wohl aber die Routinearbeit des Programmierens. 
Sie müssen nicht einmal wissen, was ein PRINT - Befehl ist, 


dennoch können Sie fehlerlose BASIC - Programme erzeugen. 


Venturefix wird im Dialog alle erforderlichen Daten der 
Reihe nach von Ihnen anfordern und Sie ständig über den 
Stand der Entwicklung informieren, bis schließlich ein 
fertiges Adventure im Stile der in diesem Buch 


vorgestellten Programme entstanden ist. 
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10 REM KUN EREREHRHF RER 
2a REM * Adventuregenerataor VENTUREFIX # 
395 REM * (c) 1984 by Joerg Walkowiak # 
49 REM ARKREKREREEHRHTRERERFER FERERIERRR 


56 MODE 1:DEFINT a-z 

65a FRINT"Venturefix":FRINT:FRINT'"written 
by Joerg Walkowiak":LOCATE 1,24: FRINT"V 

enturefis":FRINT"ic) 1784 by DATA BECHEE 

R, Duesseldorf"; 

7a FOR i=1 TO 159009: NEXT 

go WINDOWHR, 1,40,1,20 

79 WINDOW#1.1.49, 19,25 

195 GOTO 170 

i11@ IF druck THEN FRINT#8,zeilennummers" 
"c$ 

129 z1$=5TR$(zeilennummer)+" "+z$:FRINT# 

1,21% 


135 FRINT#9,zeilennummers" "szt:reilennu 
mmer=zeilennummer+zeilenabstand:z$="":FE 
TURN 

1450 z$=r6+h&: RETURN 

159 eingabe$=INEEY$: IF eingabest="" THEN 


150 ELSE RETURN 

165 CLS:FLOT ©,115:DRAW 549,115: FRINT t$ 
:FRINT STRING$ (40,154) :RETURN 

170 CLS:REM ####%**** beginn hauptprogram 
m 

185 INFUT"Wie soll das Adventure heissen 
"keingabe$:seingabes$=uUFFER$ (eingabe$) 

1969 IF LEN(eingabe$)‘&8 THEN FRINT"RBitte 
richt mehr als 8 Buchstaben !":GOTO 18% 
205 adventure$t=eingabest+".RBRAS" 

219 FRINT:INFUT"Soll gleichzeitig ein Li 
sting auf einem angeschlossenem Drucker 
erzeugt werden "jeingabe# 

220 IF (eingabet=";j" OR eingabet="I") TH 
EN druck=-1 

230 CLS: INFUT"Name des Autors"sautor$ 
248 FRINT adventure$5 : INFUT", Version "s 
versionf 
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255 INPUT"Datum "sdatum$ 

266 FRINT:FRINT:LINE INFUT"Legen Sie ein 
e leere Diskette/Cassette ein und druec 
ken Sie «ENTER? „.."„eingabe$ 

270 t$="Kontrolldaten eingeben! 

280 CLS#1:G0SUR 1660 


29a INFUT"Wie viele Raeume "ar 
so INFUT'"Wie viele Objekte "sac 
316 INFUT"Wie viele Verben "zav 
328 INFUT"Schaetzwert: Flags "saf 
36% INFUT"Spielstart in Raum "sspieler 


546 FRINT: INFUT"signifikante Wortlaenge 
"wi 

soo t$="Teil I: Initialisierung":GOSu 
R 160 

a6a FRINT"- Datei veffnen"tadventurest="! 
"+ UFFPER$ (adventure$) :OFENOUT adventure$ 
>70 FRINT"- Frogrammkopf":szeilennummer=i 
:zeilenabstand=1:z$="REM "+LEFT$ (adventu 

re$, (LEN (adventure$t)-4))+", Version "+tve 

rsion$:GOSUR 11% 

ZaA0 zZ$="REM (c) "+datum$:G5OSLUR 11% 

5399 z$="REM by "+tautor$:GOSUR 110 

4530 z$="REM produziert unter Zuhilfenahm 

e von: ":GOSUR 116 

41% z$="REM VENTUREFIX, 1c) 1984 by I. W 
alkowiak":GOSUR 11© 

420 z$="REM"+STRING$ (35,154) :6G0OSUR 110 
30 FRINT"- Titel":z$="REM hier Titelbil 

d programmieren" :szeilennummer=19 

445 FRINT"- Kenndaten":szeilennummer=159%: 

z$="ar="+5TR$ tar) +"sao="+STR$ (ao) +"save" 
+STR$ (av) +"saf="+STR$ (af)ızeilenabstand- 
19: GOSLUIR 110 

4509 z$="spieler="+STR$ (spieler) »GOSUR 11 

[6) 

460 z$="wl="+STR$(Wl):GOSUR 110 

470 ne Felder dimensionieren" 

480 z$="DIM raum$ (ar). durchgangtar,&),aoh 

$(ao),rufname$(ao), ob (ao), ‚verb$(av)"ızei 
lennummer=19&0: GOSUR 110 
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494 z$="REM KEREREREHEEREEKEH HH VE 

RRBEN":GOSUER 11ü: zeilenabstand=l 

566 t$="Geben Sie nun bitte jeweils ein 

Verb einund druecken Sie ENTER}: ":G60OSURE 
1609 

sia FOR i=1 TO av 

52@ FRINT'"'Verb "sis;:INFUT"lautet "sverb#$ 

5330 zZ$="DATA "+tverb$ 

549 GOSUR 110 

550 NEXT i 

56% zeilennumnmer=Io0:z6="REM KHK 

RR GEGENSTAENDE":GOSUR 110 

578 C1LS:t$="Geben Sie nun bitte jeweils 

ein Objekt einund druecken Sie “ENTER: 

":GOSUR 168 

58a FOR i=1 TO ao 

Soa CLS:GOSUR 160 

655 LOCATE 1,5: FRINT"Gegenstand Nr.: "si 

ia INFUT"Ich sehe "sobjekt$ 

82a INFUT"Rufname "srufname$ 

6350 FRINT 

646 INFUT"in Raum Nr"5raum$ 

659 zZ$="DATA "+objekt$+", "trufnames+",„"+ 

raums:GOSUER 11% 


Ban NEXT i 
675 t$="Geben Sie nun die Beschreibung e 
ines jeden Raumes, sowie die Nummern 


der von ihm aus zu erreichenden Raeume e 
in. ":GOSLUR 160 

686 zeilennummer=5060 

&9G z$="REM “RR RAUMRBESCHREIBU 
NGEN": GOSLUR 11% 

75 FOR i=1 TO ar 

710 CLS:GOSUR 1660 

728 LOCATE 1,5: FRINT"Raum Nr.:s "si 

738© INFUT"Ich bin "sraum®$ 

748 FRINT:FRINT"Dieser Raum fuehrt'" 

75@ INFUT" im Norden in Raum Nr. "sn$ 
76& INFUT" im Sueden in Raum Nr. "sjs$ 
778 INFUT" im Westen in Raum Nr. "sw$ 
788 INFUT" im Osten in Raum Nr. "so$ 
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79% INFUT" nach oben in Raum Nr. "zob# 
856% INFUT" mach unten in Raum Nr. "sus 
a1 z$="DATA "Hraums+r", "Hns+r", "+sb+", "tu 
$+", "+o$+", "tab$r", "+u&:GOSUR 110 
82a NEXT i 
za t$="Auf falgende Standardmitteilunge 
n koennen Sie zugreifen":GOSUR 166 
845 FRINT"m$(1): Ich sehe nichts besonde 
res." 
gaso FRINT"m$(Z)s: Sao stark bin ich nicht 
u 
Bau FRINT"m$ (I): Wie stellst Du Dir das 
vor 7" 
273 FRINT'"'m$(4): Ich verstehe nicht, was 
Du meinst !" 
885 FRINT:FRINT"okS$: Okay 1" 
a9 zeilennummer=&00:z$="REM FrRrHHRRRKRrr 
%*%#%%%%%# MITTEILUNGEN'":GOSUR 110 
9909 zb="mb(1)="+CHR$ (34)+"Ich sehe nicht 
s besonderes. "+CHR$ (4) sGOSUR 110 
919 ze" mb (2) ="+CHR$(F4)+"So stark bin i 
ch nicht !"+CHR$ (34) :GOSUR 110 
92H zb=e"m$ (I) ="+CHR$(F4)+H"Wie stellst Du 
Dir das vor ?"+CHR$ (34) :GOSLUR 119 
95 zb="m$(4)="+CHR$ (54) +"Ich verstehe nr 
icht, was Du meinst !"+CHR$ (34): GOSUR 11 
19} 
945 z$="0ok$="+CHR$ (T4)+"Okay !"+CHRE 054) 
:GOSUR 110 
950 t$="Teil II":GOSUR 1au 
94h zeilennummer=64979:z$="REM KAHeRKHeerr 
hier evtl. 2. Titel":GOSUR 119 
9758 FRINT"- Initialisierungsteil schreib 
en" 
980 zeilennummer=8uit; zeilenabkstand=le 
994 z$="FOR i=1 TO av"sGOsuR 110 
1999 z$="READ verbt(i):verbt(i)=LEFT$ (ve 
rb$(i),wl)sverb# ti) =UFFER$ (verb$(i))":6G0 
SUR 110 
1910 z$="NEXT i":G0OSUR 116 
1929 z$="FOR objekt=1 TO aa":GOSUR 110 
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1930 z&="READ ob$ (objekt),rufname$ (objek 
t),ob(objekt) srufname$ (objekt)=LEFT$ (ruf 
name$ (abjekt) ,wl)srufname$ (objekt)=UFFER 
&(rufname$ (objekt)) NEXT objekt":GOSUR 1 
10 
194 z$="FOR raum=i TO ar: READ raums (rau 
m)"sGOSUR 119 
ac z$="FOR richtung=l TO “:READ durchg 
ang (raum, richtung) ":GOSUR 119% 
1060 z$="NEXT richtung:NEXT raum" :GOSLIR 
110 
1972 FRINT"- Spielanweisung" 
1980 z&="FRINT: INFUT"+CHR$S (E44) +" Wuens 
chen Sie FRatschlaege fuer Ihr 
weiteres Vorgehen" +CHR$ (34) +"sjeingab 
et: eingabe$=UFFER$ (eingabe$) ":GOSUE 11@ 
1990 z$="IF LEFT$ (eingabe$,1)="+CHRS$ (54) 
+" T’+CHR$ (34) +" THEN GOSUR 950: GOTO 1aacı 
ELSE GOTO 1560": GOSUR 110 
1100 z$="MODE 1:FAFER ©: INK 9,9: BORDER & 
:FEN 1:INkE 1,20":GOSUR 110 
1119 Zs$="FRINT"+CHRE CI) +" CFC - Ve 
ntures"+CHR$ (E4) +"S FRINT TAR(1S)CHR$ (164 
IS "+CHRECA4)H" 1984 by I"+CHRE CHA) H"CHR 
#178) 5 "+CHR$ (54) +" rg Walkowiak":GOSUR 1 
io 
1125 z$="FRINT STRINGS$ (40, 208) : FRINT"+CH 
R$(34)+"Stellen Sie sich einen Roboter 
vor, denSie mit zahlreichen kaommandos 
steuernkoennen. "+CHR$ (34): GOSUR 110 
1130 z$="FRINT"+CHR$ (34)+"Ich bin dieser 
Roboter, und ich werdemich fuer Sie 
den Gefahren der verwegen-sten fbenteuer 
aussetzen. "+CHR$ (34): GOSUR 110 
1140 z4="FRINT"+CHR$I34)+" Damit Sie mic 
h sinvoll agieren lassenkoennen, werd 
e ich Ihnen die Situationin der ich mi 
ch gerade befinde, jeweils genau beschre 
iben. "+CHRS (34): GOSUR 110 
1150 z$="FRINT"+CHR$ (34) +"Anschliessend 
sagen Sie mir mit zweiWaorten, wie 
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beispielsweise UNTERSUCHETUER, NIMM MES 
SER, was ich tun soll. "+CHR$ (34) +": FRINT 
":GOSUR 110 

1160 z$="FRINT"+CHR$ (I4) +"Darueber hinau 
s verstehe ich die Befehle INVENTUR, 
SAVE, LOAD und ENDE. "+CHR$ (534): GOSUR 11 


& 
1170 z$="FRINT STRING$ (49,210): INK 5,12, 
Z4:1INE 2,24,12:PEN 5: FRINT"+CHRS$ (34) +" 
„Taster"+CHR$ (34) +"sı FEN ZiFR 

INT"+CHR$ (34) +" druecken"+CHR$ (24) +": FE 
N 1:FRINT":GOSUR 116 

1180 z$="eingabe$=INKEY$: IF eingabe$s="+5 
TRING$ (2,34)+" THEN 980 ELSE CLS:MODE 1: 
INK 1,2:INK 2,14: INK 3, 26:RETURN":GOSUR 
119 

119% t$="Teil III: Adventuretreiber":608 
UR 160% 

12590 z$="MODE 1:FAFER 8: INK 09,0: BORDER #9 
: INK 1,23 INH 2,14: INK 3,26:FEN 1":GOSUR 
116 

1219 z$="leerzeile$=STRING$ (49,32) ":G0OSU 
RB 110 

1220 z$="DATA Norden , Sueden „Westen „Osten 
„aben,unten":GOSUR 119 

239 z$="FOR richtung=! to &":GOSUR 119 
1240 z$="READ richtung$ (richtung) ":GOSUR 

119 

250 z$="NEXT richtung":GOSUR 116 

126% zeilennummer=1070:z2$="CLS":GOSUR 11 
a) 

1270 z$="FRINT:FRINT":GOSUR 116 

1289 FRINT"- Bildschirmausgabe" 

1299 z$="LOCATE 1,1":G0OSUR 110 

13090 z$="FOR zeile=1 TO 10":GDSUR 116 
1319 z$="FRINT leerreile$;":60SUR 110 
1320 z$="NEXT zeile":GOSUR 116 

13359 z$="LOCATE 1,1:FEN 1":G0OSUR 119 
15349 z$="FRINT"+CHR$CS4)+"Ich bin "+CHR$ 
(54)+"3":GOSLUR 118 

1359 z$="FRINT raum$ (spieler) s:FRINT"+CH 
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R$(I4)+"."+CHRS (34) :GOSUR 119 

1368 z$="FRINT"+CHR$ CS4)+"Ich sehe "+CHR 

$(34)+"ssgedruckt=0":GOSUR 110 

1370 z$="FOR i=1 TO ac":GOSUR 110 

1380 z$="IF ob(i)i>spieler THEN 1219%":60 

sur 110 

1390 z#="IF FOSCHÖ)+LEN (ob#$ (1 ))+24=37 TH 

EN FRINT ob$(i) 3 "+CHR$ (34) +", "+CHR$ (54) 

+"3:G60T0 1Z202":GOSUR 116 

1450 z$="IF FOS(C#HO)+LEN(ob$(i))+2>397 THE 

N FRINT:GOTO 11970":GOSUR 110 

1410 z$="gedruckt=-1":zeilennummer=1205: 

GOSUR 11ü:zeilennummer=1210 

1420 z$="NEXT i":GOSUR 110 

1430 z$="IF NOT gedruckt THEN PRINT"+CHR 

$ (34) +"nichts besonderes "+CHR$ (IA) +" 5" 

:zeilennummer=1215:G0SUR 11@:zeilennumme 

r=1220 

1440 z$="FRINT CHR& (8) SCHRS$ (BI 5 "+CHRS& (54 

I) +". "+CHR$ (34) :GOSUR 110 

1450 z$="FRINT leerzeile$t:FEN 2":60SUR 1 

10 

1460 z&$="FRINT'"+CHRE& (SA) +"Ich kann nach 
"+CHR$ (34) +"segedruckt=0":GOSUR 118 

1470 z$="FOR richtung=i TO 6":G60SUR 11% 

1480 z$="IF durchgang (spieler,richtung)= 

a THEN GOTO 156% ELSE gedruckt=-1":G60SUR 
118 

1495 z$="IF FOSC#O)=15 THEN FRINT richtu 

ng® (richtung) 3sG0OTO 1300":GOSUR 110 

1590 z$="IF FOS(C#O) +LEN (richtung$ f(richtu 

ng))“ 58 THEN FRINT"+CHR$S (34) +", "+CHRSE CH 

4)+"srichtung®$ (richtung) 5:G0TO 1398":605S 

uR 110 

1519 z$="FRINT"+CHRE CS4) +", "+CHRE (54) +": 

FRINT richtung$ (richtung) 5:G60TO 1300":G0 

SUR 110 

1520 z$="NEXT richtung":GOSUR 110 

15339 z$="IF gedruckt=® THEN FRINT"+CHRS$ ( 

a4) +"nirgendwa"+CHRE (54)+"3":GOSUR 110 

1540 z$="FRINT"+CHRS$ (34) +". "+CHR$S (34) +": 
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FEN 3":GOSUR 110 

1550 z$="FRINT STRING$ (49, 154)": GOSUR 11 
(e) 

10a0 FRINT"- Zugannahme" 

15760 zeilennummer=1396:z$="FEN F:LOCATE 
1,25: INPUT"+CHR$S (24) +"Was soll ich tun"+ 

CHR$ (34) +"jeingabe$:eingabe$=LFFER$ (eing 
abe$):FEN 2":GOSUR 110 

1580 z$="IF LEN(eingabe$) zZ THEN 1590":6G 

OSUR 110 

1590 z$="IF eingabe$="+CHRE E34) +" N" +CHRE$ 
(34) +" AND durchgang (spieler, 1)“>® THEN 
spieler=durchgang (spieler, 1):FRINT ak$:6G 
OTO 129808" :GOSUR 110 

1acı z$="IF eingabe$s="+CHR$ (34) +"S"+CHR$ 
54) +" AND durchgang (spieler ,„Z)“>& THEN 
spieler=durchgang (spieler ,„Z):FRINT 0ok$:6 
ATO 1980":GOSUR 110 

16810 z$="IF eingabe$="+CHRE$& (34) +" W"+CHR$ 
(Z4)+" AND durchgang (spieler, D“>&@ THEN 
spieler=durchgang (spieler ,S):FRINT 0&8$&:6 
ATO 10809":GOSLUR 11% 

1820 z$="IF eingabe#="+CHR$ (34) +"O"+CHR$ 
(54)+" AND durchgang (spieler,„4)“>@ THEN 

spieler=durchgang {spieler .„4):FRINT ok$:G 

OTO 1880":GOSUR 119 

1636 z$="IF eingabe$="+CHR$ (34) +"DR"+CHR 
$(54)+" AND durchgang (spieler ,„S)“>@ THEN 
spieler=durchgang {spieler ,„S):FRINT ok$: 
GOTO 15809":GOSUR 110 

16540 z$="IF eingabes="+CHR$ (T4) +" U"+CHRS$ 
(34)+" AND durchgang (spieler ,6)“:>& THEN 
spieler=durchgang (spieler ,„ö):FRINT ok#$:G 
ODTO 1980":GOSUR 110 

1850 z$="IF LEN(eingabe$)“S THEN FRINT"+ 

CHR$ (34) +"Dahin fuehrt kein Weg !"+CHR$( 

34)+":G0OTO 1989":GOSUR 110 

14&0 z$="IF LEN(eingabe#);>@ THEN GOTO 20 

aa"sGOSLR 118 

1675 FRINT"- INVentur" 

1880 zeilennummer=1499:z$="REM xurxtr%% 
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*#%%%*%*%* START INVENTUR":GOSUR 118 

1895 zeilennummer=1540:r%="IF LEFT$(eing 

abe$,I)% >" +CHR$ (34) +" INV"+CHRS$ (24) +" THE 

N GOTO 16603": G0OSUR 11% 

17598 z$="FRINT"+CHR$ (34) +"Ich trage folg 

endes mit mir: "+CHR$ (34) :G0SUR 11% 

1710© z$="FOR objekt=1 TO ao":GOSUR 116 

1720 z$="IF obfobjekt)=-1i THEN FRINT ob#$ 
(objekt) ":GOSUR 110 

1759 z$="NEXT objekt":GOSUR 11% 

1740 z$="GOTO 1080":GOSUR 110 

17509 zS="REM HH ENDE INVEN 

TUR":GOSUR 119 

176% FRINT"- SAVe Game"szeilennummer=16% 

[6) 

1779 z$="IF LEFT$(eingabe$, 5) <:"+CHR$ (54 
IH" SAV"+CHR$ (E34) +" THEN GOTO 1700": GOSUR 
110 

1788 z$="FÜOR flag=i TO af:FRINT#9,fl(fla 

g)sNEXT flag":GOSUR 70 

1795 z$="IF LENieingabe#) 1% THEN FRINT" 

+CHR$ (34) +"RBitte etwas kuerzer !"+CHR$ (5 

4)+":G0TQ 1610 ELSE eingabe$s="+CHR$ (34) + 
"EN+-CHRS (IA) +"+eingabes+"+CHR$ (34) +". spi 

el"+CHR$ (34)+":OFENOUT eingabe$":GOSUR 1 
19 


1800 z$="FRINT#9,spieler":GOSUR 119% 
1810 z$="FOR objekt=1 TO ao":GOSUR 119 
1820 z$="FRINT#9,ob (objekt)":GOSUR 110 
1850 z$="NEXT objekt":GOSUR 11% 


1849 z$="FOR raum=i TO ar:FOR richtung=l 
TO &:FRINT#Y9, durchgang (raum,richtung) N 

EXT richtung:NEXT raum":GOSUR 110 

1850 z$="FOR flag=1 TO af:FRINT#9,fl(fla 

g):NEXT flag":GOSUR 118 

1840 z$="CLOSEQUT:FRINT 0ok$:GOTO 1080":6 

sur 110 

187@© FRINT"- LOAd Game" 

188% z$="IF LEFT$ (eingabe$, F) «7"+CHR$ (54 
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I+"LOA'"+CHRE (34)+" THEN GOTO 1059", GOSLR 
119 

1895 z$="FRINT"+CHR$S(SI4)+"Cassette rueck 

spulen % FLAY druecken ...Welches Spiel 

laden „....e0.... " +CHRE (IA) +" STRING$ (10, 

8);5:INFUT eingabe$":GOSUR 119 

1995 z$="IF LENfeingabe$) >19 THEN FRINT" 

+CHR$ (34) +"Das kann nicht sein !"+CHRS$ (3 

4)+":G60T0 171% ELSE eingabe#="+CHR$ (34) + 
"I+CHR$ (34) +" teingabe$+"+CHRE$ (34) +".SFI 

EL"+CHRS$ (F4)+":OPFENIN eingabe#":GOSUR 11 

[9] 

19715 z$="INFPUT#?,spieler":GOSUR 119 

1929 z$="FOR objekt=1 TO ao: INFUT#9,ob (o 

bjekt):NEXT objekt":GOSUR 110 

1930 z$="FOR raum=1 TO arıFOR richtung=l 
TO 6: INFUT#?, durchgang (raum, richtung) :N 

EXT richtung:NEXT raum":GOSUR 110 

1940 z$="FOR flag=i TO af: INFPUT#9,fl(fla 

g)=NEXT flag":GOSUR 119 

19550 z$="CLOSEIN:FRINT 0k$:60T0O 10580" :60 

SUR 118 

1969 FRINT"- INS":zeilennummer=17%0 

1979 z$="IF LEFT$(eingabe$, I) 7"+CHR$ (534 
I) +" INS"+CHR$ (34) +" THEN GOTO 195%": GOSLR 
119 

198960 z$="GOSLE 999:G0TO 198%": GOSUR 11a 
199&0 FRINT"- END":zeilennummer=1950 

200 z$="IF LEFT$(eingabe$, 2% F"+CHR#$ (34 
I+"END"+CHR$ (34) +" THEN GOTO 2500": GOSUR 
118 

2a10 z$="FRINT"+CHR$(S4)+"Der Autor wuen 

scht Ihnen mehr Erfolg beim naechsten 
Mal. "+CHR$ (34) +": FRINT:FRINT:FRINT:SEND" 
:GOSUR 110 

2020 FRINT"- Eingabeanalyse":Zeilennumme 

r=2090 

2o30 z$="laenge=LEN (eingabe$) ":G6GOSUR 11% 

2040 z$="FOR buchstabe=1 TO laenge":GOßt! 

EB 11% 

2950 z$="pruef$=MID$(eingabe$, buchstabe, 
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1)":GOSUR 110 

2960 z$="IF pruef$X >"+CHR$ (34) +CHRS$ (I2) + 
CHR$ (34) +"THEN NEXT buchstabe'":GOSUR 110 
2970 z$="everb$=LEFT$ (eingabe$,wl)":GOSU 
R 110 

28909 z$="rl=laenge-buchstabe":GOSUR 11% 
2090 z$="IF rl<& THEN Z2890":GOSUR 116 
2100 z$="eobjekt$=RIGHT$ (eingabe$,r1)":G 
OSUR 110 

2110 z$="eobjekt$=LEFT$ (eobjekt$,wl)":G0O 
Ssuk 110 

2120 z$="FOR verbnummer=1 TO av":GOSUR 1 
10 

2130 z$="IF everb$=verb$ (verbnummer) THE 
N Z120'":GOSUR 110 

2140 z$="NEXT verbnummer ":GOSUR 119 

2150 z$="FRINT"+CHR$ (34) +"Das Verb verst 
ehe ich nicht. "+CHR$(534)+":60T0 1084":60 
SUR 119 

2160 z$="FOR o=1 TO a0o":GOSUR 116 

2179 z$="IF eobjekt$=rufname$(o) THEN 22 
aa"sGOSUR 116 

2180 z$="NEXT 0":6G0SUR 110 

2199 z$="FRINT"+CHR$ (534) +"Diesen Gegenst 
and kenne ich nicht. "+CHR$ (34) +":G0T0 10 
ga": GOSUR 110 

22009 FRINT"- Sprungtabelle":zeilennummer 
=2200: sprungziel=I000 

22109 z$="ON verbnummer GOTO ZSaaa'" 

ZEZo FOR i=1 TO av 

22309 sprungziel=sprungziel+1uae 

2249 z$=z2$+","+STR$ (sprungziel) 

A250 NEXT i 

a26a GOSLUR 110 

2270 FRINT"- Titel: Spieler tod":szeilenn 
ummner=4500 

2280 z$="CLS:REM SFIELER TOD":GOSUR 110 
2290 z$="FRINT"+CHRS$ (34) +"Auch das noch 
I"+CHRS (54) +": FRINTSFRINT m$ (0) ":GOSUR 1 
19 

2300 z$="FRINT:FRINT"+CHR$ (34)+"Ich bin 
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tod !"+CHR$ (F4) +": FRINT":GOSUR 110 

2318 z&6=" INPUT"+CHR$ CT4)+"Soll ich es no 
ch einmal versuchen "+CHR$ (34) +"jeingabe 
$seingabe$=UFFER$ (eingabe#)":GOSUR 118 
2326 z$="IF LEFT$feingabe$,1)="+CHR$ (54) 
+" J"+CHR$ (34) +" THEN RUN"S:GOSUR 110 

Z3I0 z$="GOTO 19660":GOSUR 110 

2349 FRINT"- Titel: Spieler siegt":zeile 
nnummer=4800 

23550 z$="CLS:REM SFIELER SIEGT":GOSUR 11 
& 

2369 zZ6="FRINT"+CHR$(CS4) +"Herzlichen Glu 
eckwunsch !"+CHR$ (34) :G0OSURB 118 

23570 z$="FRINT:FRINT"+CHR$ (34)+"Sie habe 
n die Ihnen gestellte Aufgabe'"+CHR$ (534) + 
":FRINT:FRINT"+CHR& CI4) +"geloest und due 
rfen sich nun an einem" +CHR$ (34) +": FRINT 
:FRINT"+CHR& (Z4)+"anderen Adventure vers 
uchen. '"+CHR$ (34) :GOSUR 1106 

2390 z$="FRINT:FRINT:FRINT:FRINT:END":GO 
SUR 119 

2396 t$="Teil IV: Bedingungen % Aktionen 
":G0OSUR 16% 

24060 zeilenabstand=l1:z1=-Teaäa: zeilennumme 
r=z1:0=0:v=6 

z410 v=v+l 

A420 o=0o+1 

2420 z=o:z2z$="IF o0="+STR$(o)+" AND " 

2440 GOSUR 160 

2459 FRINT" 1 — Objekt ist im Raum" 

2466 FRINT" 2 — Objekt ist nicht im Raum 
2475 FRINT" 
2486 FRINT" 
2490 FRINT" 
2590 FRINT" 
Mi" 
2510 FRINT" 7 -— UND weitere Bedingung" 
25209 FRINT" 8 -— ODER weitere Bedingung" 
2530 FRINT:FRINT" © — Bedingungen sind O 
kay" 


- Spieler hat Objekt" 

- Flag ist gesetzt" 

Flag ist nicht gesetzt" 
- Spieler muss sein in Rau 


[Sun A ES 2 
! 
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2540 FRINT 

2520 FRINT"Waehlen Sie fuer Verb ";vws" O0 
bjekt "so 

2560 INFUT e 

2579 IF e=1 THEN z$=r$+"ob(o)=spieler" 
25208 IF e=2 THEN z$=z$+"ob(o)üispieler" 
2590 IF e=3T THEN INFUT"Objekt Nummer "sin 
ı2$=2$+"obC"+STR$ (x )+")=spieler" 


2600 IF e=4 THEN INFUT"Flag Nummer "on 
sz$=z$+"F1("+STRE (nd) HH" )=—1" 
26160 IF e=5 THEN INFUT"Flag Nummer "sm 


z$=ez6r" FL C"+STRE (IK) HN)" 

Z620 IF e=& THEN INFLUT"Welchen Raum "5x 
ız$=z$+"spieler="+STR$ (x) 

26350 IF e=7 THEN z$=z$+" AND " 

2640 IF e=8 THEN z$=z$+" OR " 

aan IF ei>a THEN 2440 

zu Zeit" THEN " 

2675 GOSUR 160 

2685 FRINT" 
2698 FRINT" 
2700 FRINT" 
2718 FRINT'" 
2720 FRINT'" 
2739 FRINT" 
2745 FRINT" 


Objekt verschwindet" 

- Objekt ins Inventory" 

- Objekt erscheint neu" 

- Flag wird gesetzt" 

Flag wird geloescht" 

—- Durchgang oeffnen" 

—- Mitteilung ausgeben" 
27589 FRINT" - Spieler stirbt" 

27660 FRINT" - Spieler siegt" 

2775 FRINT:FRINT" & — Aktionen Okay" 
2790 PRINT"Waehlen Sie fuer Verb "5v:" 0 
bjekt "5o:INFUT e 

279& IF e=1 THEN INFUT"Objekt Nummer "sx 
ı2$=2$+"ob("+STR$ (N) +" )=6" 

2800 IF e=2 THEN INFUT"Objekt Nummer "su 
ı2$=z26+"ob("+STRE (CH) +" )=—1" 

ze1@ IF e=3 THEN INFUT"Objekt Nummer "s;» 
ı z$=z $+"ob("+STR$ (x) +")=spieler" 

2820 IF e=4 THEN INFUT"Flag Nummer "ss: 
$=ezEHr "FL C"+STRE (CH) HN)" 

2835 IF e=5 THEN INFUT"Flag Nummer "susz 
$er$r"F1LC"+HSTRE (HI )=ER" 


TZONFOPÜUNM 
I 


297 


2845 IF e=&6 THEN INFUT"von Raum "s»4:1INFU 

T" in Richtung "5ysINFUT" nach Raum "}z 
ı2$=2 $+"durchgang ("+STR$ (x) +", "+STRE (y)+ 
")="+S5TR$ (zZ) 

2850 IF e=7 THEN INFUT"und zwar: 

"Zeingabe$t:z$=z$+" 

FRINT"+CHR$ (34) teingabe$+CHR$& (34) 

286% IF e=8 THEN INFUT"Mitteilung fuer d 

en Spieler eingeben "keingabe$:z$=z$+'" 

m$ (2) ="+CHR$ (34) teingabe$+CHRE$ (34) +":6G0T 

D 4500" 

2870 IF e=9 THEN z$=z2$+'"G0T0 4900" 

2886 IF e=& THEN z$=z2$+"G0OTO0 1080": GOSUR 
110: ELSE z$=z$+":2":6G0T0 267% 

289% INFUT'"Mehr zum gleichen Objekt "sei 

ngabe$:eingabe$=UFFER$ (eingabe$) 

zZ9oa0 IF LEFT$(eingabe$,1)="J" THEN 2410 

z915 IF ox>ao THEN GOTO 2420 

2IZO 0o=0:z1=z1+1lß@ä@u:zeilennummer=z 

290 IF virav THEN GOTO Z410 

2946 CLOSEOUT 

2950 CLS 

2966 FRINT"Auf dem verwendeten Datentrae 

ger ":FRINT:FRINT"existiert nun ein Frogr 

amm mit Namen'":FRINT:FRINT MID$(adventur 

e$,2)5" welches Sie auf vebliche":FRINT 
:FRINT"Weise laden koennen. ":FRINT:FRINT 
:FRINT:FRINT"Viel Spass !":FRINT:FRINT:E 

ND 
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GREBRIK 
RRGGERAÄNDIER 


Beschreibung 
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GRAFIK - PROGRAMMER 


Das Ihnen im folgenden als Listing vorgestellte Programm 
wurde von mir entwickelt, um einfache HIRES - Grafiken auf 


leichte und schnelle Art programmieren zu können. 


Die Vorgehensweise ist denkbar einfach: Sie erzeugen unter 
Verwendung eines tastengesteuerten Cursors und mit Hilfe 
einiger vom Editor gestellter Fragen die Grafik auf dem 
Bildschirm. Die für die Erzeugung dieses Bildes notwendigen 
Daten werden gespeichert und später zur Erstellung eines 
Programmes verwendet, welches als Unterprogramm an andere 
Programme angefügt werden kann. 

Somit ist es nicht erforderlich, daß Sie die jeweiligen 
Koordinaten mit irgendwelchen Hilfsmitteln, wie 


beispielsweise Bildschirmarbeitsblättern, ermitteln müssen. 


ERSTELLUNG VON GRAFIKEN MIT GRAFPRO 


Nach dem Titelbild zeigt der Editor Ihnen zunächst das 
Hilfsmenue, welches Sie jederzeit auch durch Betätigung der 
Taste H erreichen können. 

Sobald Sie sich über die Ihnen zur Verfügung stehenden 
Möglichkeiten informiert haben, können Sie durch drücken 
einer beliebigen Taste in den Editiermodus umschalten. 


Es stehen Ihnen nun eine Reihe von Zeichen- wie auch 
Steuerbefehlen zur Verfügung. 
Zeichenbefehle werden mittels Klein-, Steuerbefehle mittels 
Großbuchstaben angesprochen. 
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CURSORBEWEGUNG : 


Der Cursor ist ein nicht zerstörender, schnell blinkender 
Punkt auf dem Grafikschirm. Zu seiner Steuerung dienen die 
Tasten des Zehnerblocks: 

789 

456 

2.3 


wobei deren Anordnung auf der Tastatur der jeweiligen 
Bewegungsrichtung entspricht. 

Ein Druck auf die fünf wird den Cursor in der 
Bildschirmmitte positionieren. 

Bei Programmstart befindet er sich immer auf der Position 
0,0, somit in der linken unteren Ecke. 

Damit die Ansteuerung eines beliebigen Punktes auf dem 
Bildschirm nun nicht zu einer Geduldsarbeit wird, haben Sie 
die Möglichkeit, die Schrittweite des Cursors nach Eingabe 
von C beliebig groß festzulegen. 


ZEICHNEN 


Um einen Punkt zu zeichnen, steuern Sie den Cursor auf die 
gewünschte Position, und drücken P für Punkt. 


Sofort wird der Punkt gesetzt, die entsprechenden 
Koordinaten werden für die spätere Programmierung 
gespeichert. 


Wünschen Sie eine Linie zu zeichnen, so betätigen Sie die 
L-Taste, und sie wird ausgehend von der zuletzt gesetzten 
Koordinate bis zur Position des Cursors gezeichnet. 

Dabei ist es gleichgültig, ob der letzte Punkt mit P 
gesetzt wurde, oder ob es sich um den Endpunkt einer zuvor 


gezeichneten Linie handelt. 
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Z rekonstruiert jederzeit (z.B. nach dem Laden) ein im 
Speicher befindliches Bild. 


FEHLERBEHANDLUNG 


Sollte Ihnen während des Zeichnens ein Fehler unterlaufen 
sein, so ist Ihr Werk noch nicht verloren. 

Nach Eingabe von wird der Bildschirm gelöscht und das 
Bild neu gezeichet, allerdings ohne die zuletzt gezeichnete 
Linie und ohne den zuletzt gesetzten Punkt. Diesen Vorgang 
können Sie beliebig oft wiederholen. 


BILD SPEICHERN. BILD LADEN 


Betätigen Sie L oder $ und geben Sie einen bis zu sechzehn 
Buchstaben langen Namen für das Bild ein. Grafpro fügt nach 
Betätigung von ENTER den gewünschten Vorgang aus. 


BILD PROGRAMMIEREN 
Nach Niederhalten von P ist wiederum die Eingabe eines 
Namens erforderlich. Anschließend werden Sie nach der 


Zeilennummer gefragt, mit der das Programm beginnen soll, 


und es wird ein entsprechendes Programm erzeugt. 
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VERWENDUNG DER ERZEUGTEN PROGRAMME 


Die generierten Programme wurden als ASCII - Datei auf dem 
verwendeten Datenträger abgelegt und können an bestehende 
Programme angefügt werden. 

Beachten Sie bitte, daß dann jedoch der Ladevorgang durch 
MERGE eingeleitet werden muß, außerdem sollte keine Zeile 
in beiden Programmen belegt sein, da sonst die 
Zeilennummern des Hauptprogrammes während des Ladevorganges 


überschrieben werden. 


wird das Bildprogramm mit LOAD geladen, so wird der 
bisherige Speicherinhalt gelöscht. 


GRAFIR 


Listing 


GAAPIK 
RRGGRANNER 


Listing 


REMOTE 

REM * Grafik Frogrammers Version Im * 

REM * (c) 11.84 by Joerg Walkowiak #* 

REM OHREN 

= CLS 

S5a DEFINT a-z 

45 DIM x» (Zam), yizaa) „moduss$ (Zu) 

a c=lsı farbe=i 

120 LOCATE 4,5: FRINT"Grafik -— Frogrammer 
GRAFFRO CFC im" 

13& LOCATE 13,6:FRINT"'by T"SCHR$(1789)35"r 

g Walkawiak" 

I35 LOCATE 1,12: FRINT STRING$ (46,154) 
149 LOCATE 1%, 1%: PRINT CHR$ (164)5'" 19784 

by DATA BECKER" 

150 LOCATE ?,14:PEN 23FRINT"Aus dem DATA 
BECKER RBuch":LOCATE 16, 16:FRINT"Adventu 

res":FRINT" und wie man sie auf dem S 

chneider":LOCATE 135,18: FRINT'"CFC program 

miert.":FEN 1 

195 FOR i=1 TO Zaaad: NEXT i:G0OTO Zaac 
100G eingabe$=INEEY$ 

ia2a IF eingabe$s="8" THEN Y=Y+C:GOTO 19% 

[) 

193& IF eingabe$="&4"THEN X=X+C:G0T0 1968 
1946 IF eingabet="4"THEN X=X-C:GOTO 1950 
1959 IF eingabe$="Z"THEN Y=Y-C:GOTO 1900 
1105 IF eingabe$="p" THEN x (p)=x:y(p)=y: 

modus&(p)="p":FLOT »,y,farbe:p=p+til:lx=x: 

1y=y:GOTO 1600 

1195 IF eingabet="1" THEN modus$(p)="1!" 
is (plzx:sy(p)=ysFLOT Ix„1ly.farbe:DRAW x.y 
‚farbe:lx=x:ly=yiıp=p+1:60TO 10a 


NPuUN- 


1116 IF eingabe#t="F" THEN GOTO 36010 

1120 IF eingabe#t="z" THEN GOTO s610& 

11358 IF eingabe$="S" THEN 461% 

1150 IF eingabe$="L" THEN Sale 

1168 IF eingabe$="9"THEN x=x+tcıy=y+tc:GOT 
a 19a0 

1175 IF eingabe#t="7"THEN Y=x-cıy=y+c:GOT 
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D 1900 
1190 IF eingabe$="1"THEN z=ex-cHy=y-c:GOT 
a 1900 
1196 IF eingabet="Z"THEN z=ex+c3 y=y-cıGOT 
a 1900 
1209 IF (eingabet="h" OR eingabe#t="H") T 
HEN GOTO Zoos 
1zia IF eingabet="S"THEN x=32%: y-239: 60T 
n 1956 
220 IF eingabe$t="c" THEN CLS: INFUT"neue 
Cursorschrittweite"53c:GOTO 481% 
220 IF eingabes="@"THEN p=p-1:650T0 41a 
19795 fFarbei=TEST (x,y) 
1715 FOR »1=1 TO 10 
1928 FLOT x,y,. farbeil+i 
1935 FLOT x,y,farbei 
1745 NEXT 1 
1959 GOTO 1000 
19779 REM KREREREEHRRERERRE RK inst 
2000 MODE 1:CLS:LOCATE 15,1:FRINT" Hilf 
smenue":FRINT STRING$ (49, 154)5 : FRINT 


zaie FRINT'"7 8 9 "S:FEN Z:PRIN 
T"Cursorbewegung":PEN 1 

2020 FRINT"4 {=} entsprechend 

der 

29530 FRINT'"I 25 Anordnung der 
Tasten auf dem 12-er 
Block" 

2040 FRINT" fe Cursor auf Sc 


hirmmitte":FRINT 
zu50 FEN Z: FRINT"Zeichenbefehle"s:FEN 1 
:FRINT" mit Kleinbuchstaben:" 


za60 FRINT" p - Funkt an Cursorposition 
setzen" 

2070 FRINT" 1 - Linie vom zuletzt gesetz 
ten Funkt, oder vom Endpunkt einer 
Linie aus, zeichnen" 


2080 FRINT" 
2590 FRINT" 
m" 

2100 FRINT 


- Bild neu zeichnen" 
Cursorschrittweite setze 


nn 
I 
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2118 FEN ZE:FRINT"Steuverbefehle"s:FEN 1:PF 
RINT" mit Grossbuchstaben:" 

2120 FRINT" H — Hilfsmenue 

2150 FRINT" S - Bilddaten speichern 

21409 FRINT" L — Bilddaten laden 

2150 FRINT" F — Basicprogramm erzeugen" 
216@ FEN ZEFRINT" @ - macht letzten Befe 
hl unwirksam"sPEN 1 

217% FRINT STRING$ (49, 154)5:FRINT"Wenn O 
„K. dann beliebige Taste druecken."; 


„1865 IF INEKEY$="" THEN 2186 

2190 CLSıx=I320: y=200:G0TO 1000 

ZOO REM RER PPOQ 
391&© CLS:FRINT"Grafik programmieren „.." 
:FRINT STRING$ (49,154) 

Soza INFUT"Wie soll das Frogramm heissen 
"sname$:IF LEN(name$) >16 THEN GOTO Feailo 


Zoo IF names="@"THEN GOTO Hal 

39405 FRINTs INPUT"Nummer der ersten Frogr 
ammzeile"szeile 

50950 FRINT: INFUT"Welchen Zeilenabstand w 
uenschen Sie"szeilenaßstand:FRINT 

Ao6a WINDOW #1,1,40,18,25 

39709 OFENDUT name$ 

Za9o FOR i=o TO p-1 

a9 IF modus$ (i)="p"THEN befehl$="plot" 
:GOTO 53116 

Sie IF moadus#$ (i)="1"THEN befehl$="dram" 


119 zeile$=befehl$+5TR$ (x (i))+","+STRE( 
yti)) 

sıza IF LEN{progzeile$):Z THEN progzeile 
$=zeilet:zeile$="":GOTO 5169 

130 IF (LEN(progzeile$)«Za0 AND LEN{pro 
gzeiles):5) THEN progzeile$=progzeile$+" 
: "+zeilet:zeile$="":G60T0 316% 

2149 FEN I:FRINT#I,zeilesprogzeile$:FEN 

Z:PRINT#1l,zeilesjprogzeile# 

s150 zeile=szeiletzeilenabstand:progzeile 
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$=zeile$ 


160 
531790 


NEXT i 
IF LEN(progzeile$):1 THEN FEN S:FRI 


NT#9, zeilesprogzeile$:FEN Z:FRINT#1,zeil 
esprogzeile# 


3180 
3190 
Az 
4556 
4010 


FEN 3:CLOSEOUT 

FEN 1 

GOTO #18 

REM KHK ERKERKRERKRR HR RE KH RK O0 GaAvVeo 
ELS:FRINT"Bilddaten speichern .„..": 


FRINT STRING${40,"_") 


45720 


INFUT"Wie soll das Bild heissen"sna 


me$: IF LEN(name$)516 THEN GOTO 4516 


40 
4546 
4550 
4960 
457% 
4490 
4098 
4160 
4110 
4120 
etalele) 
5010 


IF name$="@"THEN GOTO #10 
OFENOUT name$ 

FEN S:FRINT 

FRINT#?,P 

FOR i=o TO p 

FRINT #9,x (i),y(i),.modus$# (i) 

NEXT i 

CLOSEOUT 

FEN 1 

GOTO Hu10 

REM KRRREHHEHHEHERERR lDad 
ELS:FRINT"Bilddaten laden .„...":FRIN 


T STRING$(49,"_") 


5020 


INFUT"Welches RBild"sname$: IF LEN(na 


me$) >16 THEN GOTO Soil 


Sao 
5540 
5459 
556 
a7 
3980 
sara 
1009 
110 
Haan 
Bol 
6920 


IF name$="@"THEN GOTO duale 
FRINT:FEN Z 

OFENIN name$ 

INFUT#9,p 

FOR i=8 TO p-1 

INFUT#P?,x (i),y(ti),modus# (i) 

NEXT i 

ECLOSEIN 

FEN 1 

REM KHK Teich 
CLS:FOR i=o TO p-i 

IF madus$(i)="p" THEN FLOT »ti),yfi 


I), farbe: G0OTO 40409 
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ara IF madus#(i)="1" THEN DRAW » (ki), ydi 
),. farbe 


6945 NEXT i 
aase GOTO 190 
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7. 


ANHANG 
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PROGRAMMVERBESSERUNGEN 


Die in diesem Buch abgedruckten Programme sollen Ihnen 
Anregungen und Beispiele für Ihre eigene Arbeit liefern, 
daß heißt sie müssen überschaubar bleiben damit Sie sich in 
ihnen ohne Mühen zurechtfinden können. 

Leider stellen aber für uns leicht verständliche Programme, 
zumindest solange sie in Basic geschrieben sind, keineswegs 
ein Optimum für den Computer dar. 

Aus diesem Grunde wird es sich sicherlich auch für Sie 
lohnen, die vorgestellte Software unter Berücksichtigung 
der folgenden Aspekte noch einmal zu überarbeiten. 


Natürlich gilt das hier Gesagte nicht nur für unsere 


Adventures, sondern für alle BASIC - Programme ! 


SPEICHERPLATZOPTIMIERUNG 


Achten Sie darauf, die einzelnen Programmzeilen möglichst 
zu füllen; verwenden Sie somit die geringstmögliche Anzahl 
von Zeilen. 

Denn jede einzelne Anweisungszeile belegt mehrere Bytes für 
die eigene Zeilennummer, zusätzlich müssen Daten zur 
Auffindung der nächsten Programmzeile abgelegt werden. 


Verzichten Sie auf alle REMarks ! 
Benutzen Sie statt der von uns zur Erhöhung der Lesbarkeit 


verwandten langen Variablennamen nur ein oder zwei 
Buchstaben lange Bezeichnungen ! 


ABLAUFOPTIMIERUNG 


In der professionellen Datenverarbeitung aus Kostengründen, 
in unserem Falle wegen der besseren Spielbarkeit, ergibt 
sich ein Streben nach möglichst schnell ablaufenden 
Programmen. 

Der einzige Weg zu diesem Ziel zwingt uns, auf die Belange 
des Computers und dessen Betriebssystem Rücksicht zu 


nehmen. 


Folgende Vorschläge helfen dem Basic - Interpreter, Ihre 
Programme möglichst schnell ablaufen zu lassen. Natürlich 
tragen auch die zuvor gemachten Vorschläge zu einem Speed - 
Up bei. 


Dieser erstellt während seiner Arbeit eine Reihe von 
Listen, wobei die Reihenfolge der einzelnen Elemente von 
der Reihenfolge ihres Eintragens in die jeweilige Liste 
abhängig ist. 

So wird jeder Variablen in der Reihenfolge ihres Auftretens 
Platz in dem dafür vorgesehenem Abschnitt des 
Programmspeichers zugewiesen. 

Greift der Rechner nun zum Lesen oder Schreiben auf eine 
bestimmte Variable zu, so muß er alle Elemente dieser Liste 
durchgehen, bis die geforderte Variable erreicht worden 
ist. 

Deshalb ist es zweckmäßig, die Variablen in der Reihenfolge 
ihrer Häufigkeit eintragen zu lassen, was durch eine 
Programmzeile, in der diese Variablen beispielsweise auf 


Null gesetzt werden, geschehen kann. 


Außerdem sollten Sie auch häufig benutzte Konstanten zuvor 
als Variablen definieren, denn diese festen Zahlen müssen 
bei jeder einzelnen Operation auf das Verarbeitungsformat 
des Interpreters umgerechnet werden, was ansonsten nur 


einmal. bei der Definition geschieht. 
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Berücksichtigen Sie diesen Tip insbesondere bei 


Schleifenkonstruktionen ! 


Zum Verarbeitungsformat gilt es weiterhin zu sagen, daß 
ganze Zahlen mit Sicherheit schneller zu verarbeiten sind 
als Gleitkommazahlen. 

Aus diesem Grunde sollten Sie jedes Programm mit einem 
DEFINT a-z beginnen. 

Denn fast jeder Programmierer fügt an Stringvariablen 
sowieso ein Komma an, und die Anzahl der wirklich 
erforderlichen Variablen mit höherer Genauigkeit wird in 


fast jedem Programm geringer als die der übrigen sein. 


Unser zweiter Ansatzpunkt betrifft die Sprünge, die ein 
Programm ausführt. Denn woher weiß der Interpreter, an 
welcher Stelle im Speicher sich das Sprungziel befindet ? 
Ganz einfach, er weiß es nicht, sondern er geht alle 
Zeilen durch, bis er die vorgegebene Zeile erreicht hat. 
Legen Sie daher alle häufig benutzten Subroutinen an den 
Beginn Ihrer Programme, um die Suchzeit, auch wenn es sich 
nur um winzige Bruchteile von Sekunden handelt, zu 


verkürzen ! 
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Die Neuen CPC 464 


EIN DATA BECKER BUCH 


Mit dem neuen DATA BECKER Einsteiger- 
buch den brandneuen CPC 464 kennen- 
lernen. 

Wer sich für den brandneuen Schneider- 
Homecomputer CPC 464 entschieden hat, 
findet mit dem DATA BECKER Buch 

„CPC 464 für Einsteiger“ gleich den 


richtigen Start. Neben den wichtigsten Hin- 


weisen über Handhabung und Anschluß- 
möglichkeiten bringt das Buch erste Hilfen 
für eigene Programme auf dem CPC 464. 
Zahlreiche Abbildungen und Bildschirm- 
fotos ergänzen den Text. Das ideale Buch 
für jeden, der mit dem CPC 464 das 
Computern beginnen will. 

CPC 464 FÜR EINSTEIGER, 1984, 

über 200 Seiten, DM 29,— 


Damit lernen Sie das CPC 464 Basic 

von Grund auf. Nicht nur die einzelnen 
Befehle und ihre Anwendung, sondern 
auch einen richtigen, sauberen 
Programmierstil. Von der Problemanalyse 
über den Flußplan bis zum fertigen 
Programm. Dazu viele Übungsaufgaben 
mit Lösungen und zahlreichen Beispielen. 
DAS BASIC-TRAININGSBUCH ZUM 

CPC 464, 1984, ca. 300 Seiten, DM 39,—. 


Viele Tips und Tricks rund um den 

CPC 464 

Vom Hardwareaufbau, Betriebssystem, 
Basic-Tokens, Zeichnen mit dem Joystick, 
Anwendungen der Windowtechnologie 
und sehr vielen interessanten Programmen 
wie einer umfangreichen Dateiverwaltung, 
Soundeditor, komfortablen Zeichengene- 
rator bis zu kompletten Listings spannen- 
der Spiele bietet das Buch viele Anre- 
gungen und wichtige Hilfen. Diese riesige 
Fundgrube sollte jeder CPC 464-Besitzer 
haben! 

CPC 464 TIPS & TRICKS, 1984, 

über 250 Seiten, DM 39,—. 
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Die Neuen CPC 464 


Interessante BASIC-Programme für den 
CPC 464 aus den unterschiedlichsten 
Bereichen, von der Videodatei über 
Disassembler und Spiele bis hin zu 
Anwendungen für den täglichen Gebrauch, 
nützlichen Programm-Editoren und Grafik- 
und Soundeditoren. 

CPC 464 BASIC PROGRAMME, 

180 Seiten, DM 39, —. 


Unentbehrlich für den fortgeschrittenen 
Basic-Programmierer und ein absolutes 
Muß für den professionellen Assembler- 
Programmierer. Z 80-Prozessor, Video- 
controller, Schnittstellen sind ausführlich 
beschrieben. Kommentiertes Listing des 
BASIC-Interpreters und des 
Betriebssystems. 

CPC 464 INTERN, 1985, 

ca. 400 S., DM 69,—. 
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Dieses Buch ist ein faszinierender Führer 
in die phantastische Welt der Abenteuer- 
Spiele. Hier wird gezeigt, wie Adventures 
funktionieren, wie man sie erfolgreich 


crEäßg. 


Bücher von DATA BECKER 


spielt und wie man eigene Adventures auf 
i dem CPC 464 programmiert. Mit einem 
ULSTTTTT] PROGRAMMIERT kompletten ADVENTUREGENERATOR! 


ADVENTURES - und wie man sie auf dem 
CPC 464 programmiert, 1985, DM 39,—. 
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